Конференция VBStreets

**hunumununukanuka** » 23.02.2007 (Пт) 6:39

Можно ли из xls файла получить доступ к другим Excel файлам без использования метода Open. Причина: у тех файлах на Open открываются формы, которые не должны открываться при доступе из другого файла. Мне надо из тех файлов копировать инфу.

Заранее спасибо

**GSerg** » 23.02.2007 (Пт) 6:59

Придёт Рей - как он обрадуется столь полному названию темы

На.
http://bbs.vbstreets.ru/viewtopic.php?t=8620

**hunumununukanuka** » 23.02.2007 (Пт) 7:13

тут дело несколько в другом, там 3 файла с n кол. листов, из которых мне надо сделатать 1 большой список в один файл, сохраняя форматы.
Можно ли как-нибудь по другому организовать?

**GSerg** » 23.02.2007 (Пт) 7:19

Да, найдя класс для чтения формата XLS напрямую.
http://bbs.vbstreets.ru/viewtopic.php?p=77648#77648
http://bbs.vbstreets.ru/viewtopic.php?p=152596#152596
http://bbs.vbstreets.ru/viewtopic.php?t=12951
http://bbs.vbstreets.ru/viewtopic.php?t=11843

KL » 23.02.2007 (Пт) 10:37

еще как вариант ADO:

http://www.erlandsendata.no/english/ind ... t=envbadac
http://www.rondebruin.nl/ado.htm

**GSerg** » 23.02.2007 (Пт) 11:25

С сохранением форматирования?

KL » 23.02.2007 (Пт) 19:55

Упс, про форматирование не заметил.

В любом случае "...у тех файлах на Open открываются формы..." - это не причина для неиспользования метода Open (другое дело, что есть намного более веские, но раз нужны форматы...). Все события можно убить одним простым

Код: Выделить всё: Application.EnableEvents=False Workbooks.Open "c:\Book1.xls" Application.EnableEvents=True

или так если у тебя XL2002 или новее:

Код: Выделить всё: Application.AutomationSecurity = msoAutomationSecurityForceDisable Workbooks.Open "c:\Book1.xls" Application.AutomationSecurity = secAutomation

http://support.microsoft.com/kb/317405/en-us
http://support.microsoft.com/kb/825939/en-us

**hunumununukanuka** » 24.02.2007 (Сб) 7:14

KL писал(а):Упс, про форматирование не заметил.

В любом случае "...у тех файлах на Open открываются формы..." - это не причина для неиспользования метода Open (другое дело, что есть намного более веские, но раз нужны форматы...). Все события можно убить одним простым

Код: Выделить всё
Application.EnableEvents=False Workbooks.Open "c:\Book1.xls" Application.EnableEvents=True

или так если у тебя XL2002 или новее:

Код: Выделить всё
Application.AutomationSecurity = msoAutomationSecurityForceDisable Workbooks.Open "c:\Book1.xls" Application.AutomationSecurity = secAutomation

http://support.microsoft.com/kb/317405/en-us
http://support.microsoft.com/kb/825939/en-us

Спасибо

**hunumununukanuka** » 24.02.2007 (Сб) 7:56

...
dim ExcelApp, ExcelB As Object

Set ExcelApp = CreateObject("Excel.Application")

Application.EnableEvents = False

Set ExcelB = ExcelApp.Workbooks.Open(filename)

Application.EnableEvents = True
...

Все равно не работает, т.е при открытии книги выскакивает форма. Кстати форма появляется на событие Open.

**Andrey Fedorov** » 24.02.2007 (Сб) 12:08

hunumununukanuka писал(а):Все равно не работает, т.е при открытии книги выскакивает форма. Кстати форма появляется на событие Open.

Не пробовал, но похоже тебе пытались сказать про это:

Код: Выделить всё: Set ExcelApp = CreateObject("Excel.Application") ExcelApp.EnableEvents = False Set ExcelB = ExcelApp.Workbooks.Open(filename) .... Тут делаешь свое черное дело ExcelApp.EnableEvents = True

Конференция VBStreets

Получить доступ к файлам xls не открывая их

Получить доступ к файлам xls не открывая их

Кто сейчас на конференции