Показать сообщение отдельно
Старый 27.07.2011, 12:53   #4  
GBH is offline
GBH
MCITP
Аватар для GBH
MCP
MCBMSS
Ex AND Project
 
140 / 28 (1) +++
Регистрация: 28.06.2007
Цитата:
Сообщение от 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.