Проект при выгрузке данных выдает ошибку "Run-time error '1004'"

@noskriptt · Регистрация: 10.08.2012

Студворк — интернет-сервис помощи студентам

есть проект написанный на vba. при выгрузке выдает ошибку.

@noskriptt · 24.10.2012, 07:55 **[ТС]**

работает так... берем файл xlsm и он выгружает из текстового в xls.

@noskriptt · 24.10.2012, 08:06 **[ТС]**

в архиве все файлы.

@mc-black · 24.10.2012, 09:41

Код макросов писал сам или нет. Как запускается то, что "не работает"? На какой лист книги xls должна пойти выгрузка из txt? Сами данные в файле "3011579 Шкаф.000_Спецификации.txt" на 100% корректные? Я открывал этот файл, там такое чувство, что файл обрезан на полуслове, то есть txt не полный, как должен быть, а "битый", испорченный.

Добавлено через 39 секунд

Код

Заказ	
Изделие	3011579 Шкаф
ДСП 2 кат-16  Орех экко

Добавлено через 12 минут
Для начала отлова ошибок, не помешает поставить Option Explicit в модулях проекта и уточнить все ранее необъявленные типы данных. Кода написано много, надо нормально разбираться. Если хотите нормальной помощи, а не отписок на форуме, напишите понятным языком, как воспроизвести ошибку любому человеку с форума, так как хотели бы, чтобы объясняли вам. Поставьте себя на место тех, кто тратит свое время и усилия на помощь в этом вопросе.

@noskriptt · 24.10.2012, 10:18 **[ТС]**

нет, писал не сам. я больше по вэбу. да, там обрезан до 1 строки, которую надо выгрузить. ссылается на ошибку в модуле Main - Поиск_сигнатур
дебаг на нем ошибку выдает на строчках

Visual Basic

1
2
3

tmp = Workbooks(ThisWb).Sheets(1).Range("f2")
 
With Workbooks(Fdata.Fname).Sheets(1).Columns("a") 'èùåì tmp â ïåðâîé êîëîíêå

@mc-black · 24.10.2012, 11:14

Использование

Visual Basic

1	tmp = Workbooks(ThisWb).Sheets(1).Range("f2")

заменить на

Visual Basic

1	tmp = ThisWorkbook.Worksheets(1)[F2]

В структуре Public Fdata As FileData не заполнено имя файла в Fdata.Fname и соответственно появляется ошибка при обращении к несуществующему файлу "" (без имени). Где именно не заполнено - ищите.

Скрипт · 24.10.2012, 12:09

Сообщение от mc-black

tmp = ThisWorkbook.Worksheets(1)[F2]

после Worksheets(1) точка нужна.

@noskriptt 1 / 1 / 0 Регистрация: 10.08.2012 Сообщений: 26
	24.10.2012, 07:55 [ТС]	2
	работает так... берем файл xlsm и он выгружает из текстового в xls. 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	24.10.2012, 09:41	4
	Код макросов писал сам или нет. Как запускается то, что "не работает"? На какой лист книги xls должна пойти выгрузка из txt? Сами данные в файле "3011579 Шкаф.000_Спецификации.txt" на 100% корректные? Я открывал этот файл, там такое чувство, что файл обрезан на полуслове, то есть txt не полный, как должен быть, а "битый", испорченный. Добавлено через 39 секунд Код Заказ Изделие 3011579 Шкаф ДСП 2 кат-16 Орех экко Добавлено через 12 минут Для начала отлова ошибок, не помешает поставить Option Explicit в модулях проекта и уточнить все ранее необъявленные типы данных. Кода написано много, надо нормально разбираться. Если хотите нормальной помощи, а не отписок на форуме, напишите понятным языком, как воспроизвести ошибку любому человеку с форума, так как хотели бы, чтобы объясняли вам. Поставьте себя на место тех, кто тратит свое время и усилия на помощь в этом вопросе. 1

Скрипт 5471 / 1149 / 50 Регистрация: 15.09.2012 Сообщений: 3,515
	24.10.2012, 12:09	7
	Сообщение от mc-black tmp = ThisWorkbook.Worksheets(1)[F2] после Worksheets(1) точка нужна. 1

Опции темы