Перенос данных из одной книги со многих листов в другую - Microsoft Office Excel - Страница 2

valerij · 17.07.2008, 14:25

Цитата:

Сообщение от SAS888

Посмотрите сейчас. Так?

SAS!
У меня выдает, ошибку?

gavrylyuk · 17.07.2008, 15:08

Мне начало выдавать Error 13 Type mistmach
Что это может быть подскажите пожалуйста

VictorM · 17.07.2008, 15:28

Отлично работает!
Не выдает никаких ошибок.

Цитата:

Мне начало выдавать Error 13 Type mistmach

возможно что-то с данными в книге "Исходящие файлы"

valerij · 17.07.2008, 18:56

Цитата:

Сообщение от gavrylyuk

Мне начало выдавать Error 13 Type mistmach
Что это может быть подскажите пожалуйста

А у меня:
"Run-time error '9': Subscript out of range"
Ошибка при выполнении ''9'': Индекс вне диапазона

ЯИмя · 17.07.2008, 22:34

Цитата:

Сообщение от valerij

А у меня:
"Run-time error '9': Subscript out of range"
Ошибка при выполнении ''9'': Индекс вне диапазона

Видимо, у Вас были открыты не ОБА файла.

valerij · 18.07.2008, 00:24

Цитата:

Сообщение от ЯИмя

Видимо, у Вас были открыты не ОБА файла.

Да, оба, оба
И эта строчка, желтая
For Sh = 1 To Workbooks("исходящие файлы").Sheets.Count

SAS888 · 18.07.2008, 05:35

Не могу смоделировать ситуацию, чтобы выдавалась ошибка. Прошу обратить внимание на иакой момент:
Имена всех листов книги "исходящие файлы.xls" должны быть в виде даты, т.е., например, "05.07.08" т.к. применяемая в макросе команда преобразования формата

Код:

CDate(.Name)

выдаст ошибку.

gavrylyuk
А после каких Ваших изменений в фале (файлах) это началось?
В какой строке выдается ошибка?

valerij
Попробуйте вставить в тот же модуль файла "Результат.xls" и запустить макрос:

Код:

Sub Test()

    MsgBox Workbooks("исходящие файлы").Sheets.Count

End Sub

Если оба файла открыты, ошибка исключена. Если нет - получим ошибку

Цитата:

"Run-time error '9': Subscript out of range"

о которой Вы говорили.

gavrylyuk · 18.07.2008, 10:27

Все верно, у меня в файлике были листы просто с названиями, а потом с датой. Удалил и все работает!!!!

valerij · 18.07.2008, 10:29

Цитата:

Сообщение от SAS888

Попробуйте вставить в тот же модуль файла "Результат.xls" и запустить макрос:

Код:

Sub Test()

    MsgBox Workbooks("исходящие файлы").Sheets.Count

End Sub

Если оба файла открыты, ошибка исключена. Если нет - получим ошибку о которой Вы говорили.

SAS!
Открыты оба файла, даже расположил рядом, вставлен Test(), запускаю его, ошибка та же, желтым выделена:
MsgBox Workbooks("исходящие файлы").Sheets.Count

Поменял, ПК, ошибка та же

SAS888 · 18.07.2008, 10:50

valerij
Попробуй вставить макрос:

Код:

Sub Test()

    MsgBox Sheets.Count

End Sub

в файл "исходящие файлы" и запустить.

18.07.2008, 10:50	#20
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	valerij Попробуй вставить макрос: Код: `Sub Test() MsgBox Sheets.Count End Sub` в файл "исходящие файлы" и запустить. Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Конвертация одной БД в другую	Старовъръ	БД в Delphi	2	19.08.2008 12:26
Сортировка листов книги	RUBEY	Microsoft Office Excel	1	17.07.2008 10:57
пересылка данных из одной сети в другую	AIst	Работа с сетью в Delphi	5	08.07.2008 23:50
Перенос данных в из 1 таб. в другую...	ivp88	БД в Delphi	12	11.01.2008 15:45
Копирование данных из одной таблицы в другую!	фЁдОр	БД в Delphi	18	06.01.2008 19:27

17.07.2008, 15:08	#12
gavrylyuk Пользователь Регистрация: 26.06.2008 Сообщений: 55	Мне начало выдавать Error 13 Type mistmach Что это может быть подскажите пожалуйста

18.07.2008, 10:27	#18
gavrylyuk Пользователь Регистрация: 26.06.2008 Сообщений: 55	Все верно, у меня в файлике были листы просто с названиями, а потом с датой. Удалил и все работает!!!!