![]() |
#15 |
MCITP
|
Цитата:
Сообщение от Gustav
![]() Запишите макрос в Excel, т.е. в пустом Экселе включите запись макро, далее откройте свой файл, сохраните его как xls, закройте файл, выключите запись макро. Получившийся код VBA несите сюда - я помогу его оформить на X++.
Импорт при помощи ADO работает с СОХРАНЕННЫМ файлом на диске! (этот файл как бы БД для него). К тому же, для несохраненного файла вы не сможете указать параметры строки подключения. Поэтому сохранение обязательно при использовании класса gl00mie. Но сомневаюсь, что макрос должен показать как он преобразует файл в удобочитаемый вид для Excel. Собственно вот и макрос. Просто открытие: Sub Test() ' ' Test Макрос ' ' ChDir "C:\" Workbooks.Open Filename:="C:\reportSmall.xls" End Sub Открытие с сохранением: Sub TestFull() ' ' TestFull Ìàêðîñ ' ' ChDir "C:\" Workbooks.Open Filename:="C:\reportSmall.xls" ActiveWorkbook.SaveAs Filename:="C:\reportSmall.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False End Sub Последний раз редактировалось GBH; 27.07.2011 в 12:58. |
|