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

gavrylyuk · 18.07.2008, 10:50

Может Вы мне еще подскажете, мне нужно перенести эти данные в другую таблицу. Пример в приложении. Второй лист в файле результат. Помогите пожалуйста!
Спасибо

valerij · 18.07.2008, 11:03

Цитата:

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

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

Код:

Sub Test()

    MsgBox Sheets.Count

End Sub

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

Выдает 2-ку
я пробовал
For Sh = 2 To Workbooks("исходящие файлы").Sheets.Count

ошибка та же

SAS888 · 18.07.2008, 11:09

А в столбце "A" листа 2 данные уже проставлены, или их нужно брать из листа 1 ?

gavrylyuk · 18.07.2008, 11:11

Уже проставлены!

SAS888 · 18.07.2008, 11:16

valerij
Похоже, что по какой-то причине у Вас имя файла отличается от имени файла в коде макроса при обращении к рабочей книге. Переименуйте файл "исходящие файлы.xls", например в "ABCD.xls" и, соответственно, в коде макроса поменяйте

Код:

For Sh=1 To Workbooks("ABCD").Sheets.Count

и еще где-то есть строка. Найдете.

SAS888 · 18.07.2008, 11:32

Посмотрите вложение. Запустите макрос "Perenos".

gavrylyuk · 18.07.2008, 11:38

Спасибо большое, все работает!!!

valerij · 18.07.2008, 11:42

Цитата:

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

valerij
Похоже, что по какой-то причине у Вас имя файла отличается от имени файла в коде макроса при обращении к рабочей книге. Переименуйте файл "исходящие файлы.xls", например в "ABCD.xls" и, соответственно, в коде макроса поменяйте

Код:

For Sh=1 To Workbooks("ABCD").Sheets.Count

и еще где-то есть строка. Найдете.

Я делал так, не помогает
НАШЕЛ Ошибку.
У Вас в коде
("исходящие файлы") без расширения, вставил .xls, все заработало.
Не понятно, как у других макрос запускался!

SAS888 · 18.07.2008, 11:49

Странно. Вообще-то, когда обращаемся к открытому файлу, расширение указывать не обязательно. Смотри в Help по VBA коллекцию Workbooks. Можно вообще, обращаться по индексу (номеру) к открытой рабочей книге.

valerij · 18.07.2008, 14:17

Цитата:

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

Странно. Вообще-то, когда обращаемся к открытому файлу, расширение указывать не обязательно.

SAS
А как у Вас и других, он, макрос запускается без ошибки? Странно!!
Я под вистой, под ХР, др. ПК, без расширения, ошибка, с ним, все ОК!
А если один файл, открыт(с расширением), да, ошибка!

18.07.2008, 11:09	#23
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	А в столбце "A" листа 2 данные уже проставлены, или их нужно брать из листа 1 ? Чем шире угол зрения, тем он тупее.

18.07.2008, 11:16	#25
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	valerij Похоже, что по какой-то причине у Вас имя файла отличается от имени файла в коде макроса при обращении к рабочей книге. Переименуйте файл "исходящие файлы.xls", например в "ABCD.xls" и, соответственно, в коде макроса поменяйте Код: `For Sh=1 To Workbooks("ABCD").Sheets.Count` и еще где-то есть строка. Найдете. Чем шире угол зрения, тем он тупее.

18.07.2008, 11:49	#29
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Странно. Вообще-то, когда обращаемся к открытому файлу, расширение указывать не обязательно. Смотри в Help по VBA коллекцию Workbooks. Можно вообще, обращаться по индексу (номеру) к открытой рабочей книге. Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Конвертация одной БД в другую	Старовъръ	БД в 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

18.07.2008, 11:11	#24
gavrylyuk Пользователь Регистрация: 26.06.2008 Сообщений: 55	Уже проставлены!

18.07.2008, 11:38	#27
gavrylyuk Пользователь Регистрация: 26.06.2008 Сообщений: 55	Спасибо большое, все работает!!!