Объединение данных из разных Файлов на разных листах одной книги - Microsoft Office Excel - Страница 2

doober · 09.01.2011, 22:20

Цитата:

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

Выдает ошибку: "Не опознаная ошибка" и стопится на строке
ReDim Spisok_Fajlov(1 To UBound(Spi))

после исправления пути стопится тут (Run time Error 7)
Set sh = GetObject(F_path).Worksheets(LISTY( n))

ЗЫ: У меня Эксель 2003 СП3

Дело было не в версии,значит листов обозначеных нет.

добавте эту строку в код

Код:

 On Error Resume Next

 Set sh = GetObject(F_path).Worksheets(LISTY(n))

Nikodim113 · 10.01.2011, 11:50

Пофиксил - заработало. Огромное спасибо за помощь. Разбираюсь с кодом.
Попутный вопрос: если файл1.xls и т.д. имеют пароль, как его обойти? Можно ли в код его забить, чтобы не вводить. Пароли известны и меняться будут не часто.

Nikodim113 · 10.01.2011, 14:18

Нашел вот такой код, в нем пример открытия запароленного файла. Как быть в моем случае, когда файлов с паролем несколько?

Set MyExcelWKB = MyExcelApp.Workbooks.Open(MyFile, dbDriverCompleteRequired, False, Password:="68426") 'открываем книжку с листами

doober · 10.01.2011, 14:29

Определяемся.
Пароль для всех файлов один,или файл- пароль

Nikodim113 · 10.01.2011, 15:12

Пароли все разные из 6 цифр.
"Файл-пароль", если я правильно понимаю пароли будут из него браться? Можно и так.

kuklp · 10.01.2011, 15:18

Цитата:

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

Пароли все разные из 6 цифр.
"Файл-пароль", если я правильно понимаю пароли будут из него браться? Можно и так.

Думаю, неправильно понимаете. Кажется doober имел ввиду на каждый файл - свой пароль. Это прийдется явно указывать в коде.

Nikodim113 · 10.01.2011, 15:30

Цитата:

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

Думаю, неправильно понимаете. Кажется doober имел ввиду на каждый файл - свой пароль. Это прийдется явно указывать в коде.

Всё верно, на каждый файл свой пароль. Явно указать для всех сразу у меня не получилось.

doober · 10.01.2011, 15:55

Правильно понял меня kuklp,вариант получается не из лучших.
Какие еще есть подводные камни.Файлы хоть в одной папке будут?
Листы создаются сразу все,или на следующий месяц в текущем месяце?

Nikodim113 · 10.01.2011, 16:40

Файлы лежат в одной папке на "шаре". К ним имеют доступ несколько человек, каждый к своему. В связи с этим пароли.
Листы создаются сразу все, но заполнение (корректировка) производиться в течении всего периода (года). Для этого предусмотрен "Последние изменения".
Могут быть "пустые" листы, т.к. нет проверок в данном месяце.

doober · 11.01.2011, 21:52

Не забываеам указать путь,имена файлов.пароли к ним

10.01.2011, 14:29	#14
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Определяемся. Пароль для всех файлов один,или файл- пароль Анализ,обработка данных Недорого

10.01.2011, 15:55	#18
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Правильно понял меня kuklp,вариант получается не из лучших. Какие еще есть подводные камни.Файлы хоть в одной папке будут? Листы создаются сразу все,или на следующий месяц в текущем месяце? Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Транспонирование множества данных из разных книгах или из разных листов на 1 лист посредством макроса	Тантана	Microsoft Office Excel	6	18.12.2014 13:04
Объединение таблиц (опред. диапазоны) из разных файлов с накоплением значений по одинаковому названию	trubka	Microsoft Office Excel	0	22.09.2010 11:46
Объединение данных из разных файлов на один лист	Комо	Microsoft Office Excel	11	22.06.2010 21:26
Автоматическое заполнение ячеек разных листов одной книги	tissot	Microsoft Office Excel	2	26.01.2010 21:24
несколько разных строк из разных файлов сформировать в один	Иван123456	Microsoft Office Excel	3	30.07.2009 17:05

10.01.2011, 11:50	#12
Nikodim113 Пользователь Регистрация: 08.01.2011 Сообщений: 12	Пофиксил - заработало. Огромное спасибо за помощь. Разбираюсь с кодом. Попутный вопрос: если файл1.xls и т.д. имеют пароль, как его обойти? Можно ли в код его забить, чтобы не вводить. Пароли известны и меняться будут не часто.

10.01.2011, 14:18	#13
Nikodim113 Пользователь Регистрация: 08.01.2011 Сообщений: 12	Нашел вот такой код, в нем пример открытия запароленного файла. Как быть в моем случае, когда файлов с паролем несколько? Set MyExcelWKB = MyExcelApp.Workbooks.Open(MyFile, dbDriverCompleteRequired, False, Password:="68426") 'открываем книжку с листами

10.01.2011, 15:12	#15
Nikodim113 Пользователь Регистрация: 08.01.2011 Сообщений: 12	Пароли все разные из 6 цифр. "Файл-пароль", если я правильно понимаю пароли будут из него браться? Можно и так.

10.01.2011, 16:40	#19
Nikodim113 Пользователь Регистрация: 08.01.2011 Сообщений: 12	Файлы лежат в одной папке на "шаре". К ним имеют доступ несколько человек, каждый к своему. В связи с этим пароли. Листы создаются сразу все, но заполнение (корректировка) производиться в течении всего периода (года). Для этого предусмотрен "Последние изменения". Могут быть "пустые" листы, т.к. нет проверок в данном месяце.