[FONT=Courier New, Courier, mono]Function OTXLOut(sql As String)[/FONT]
[FONT=Courier New, Courier, mono]CurrentDb.QueryDefs("Bolvanka").sql = sql[/FONT]
[FONT=Courier New, Courier, mono]DoCmd.OutputTo acOutputQuery, "Bolvanka", acFormatXLS, "C:\Test.xls"[/FONT]
[FONT=Courier New, Courier, mono]End Function[/FONT]
Access: Автоматический экспорт отчёта в excel - как?
Когда открываем отчёт, на панели инструментов кнопка - анализ в excel
можно ли эту кнопку програмно вызвать чтоб без всяких глупостей, не бегать по записям и не записывать каждую в файл??
поможет кто-нибудь?
можно ли эту кнопку програмно вызвать чтоб без всяких глупостей, не бегать по записям и не записывать каждую в файл??
поможет кто-нибудь?
Неужели ты думаешь, что никто до тебя не экспортировал отчеты Access в Excel?? Поиск рулит!!
http://www.zmey.1977.ru/Access_To_Excel_Ru.htm
А вот конкретно то, что тебе надо:
http://www.zmey.1977.ru/Access_To_Excel_Ru.htm
А вот конкретно то, что тебе надо:
Код: