acFormatXLS

[gjghjc]

В процессе работы понадобилось выгружать данные из базы Access результаты в Эксель.

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

Если выгрузку делать из кода модуля например так

Код: Выделить всё

DoCmd.OutputTo acOutputTable, "tbVerify", acFormatXLS, Application.CurrentProject.Path & "\LOG\Log_" & Day(Now) & "_" & MonthName(Month(Now)) & ".xls", False

вроде бы все хорошо выгружается, но при первом открытии эксель ругается на то что формат файла старый и предлагает обновить. Все бы ничего, но как-то не "эстетичненько" получается.
Поиск по форуму по acFormatXLS вообще не дал результатов
Хелп по Acces VBA пишет следующее

AcFormat can be one of these AcFormat constants.
acFormatASP
acFormatDAP
acFormatHTML
acFormatIIS
acFormatRTF
acFormatSNP
acFormatTXT
acFormatXLS

А что тогда подставляется в качестве этого параметра при экспорте из макроса если эксель не ругается на старый формат?

[gjghjc]

Все, вопрос отпал.
Пользуемся не OutputTo а TransferSpreadsheet

Код: Выделить всё

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tbVerify", Application.CurrentProject.Path & "\LOG\New_Log_" & Day(Now) & "_" & MonthName(Month(Now)) & ".xls"