| |
|
|
| |
Dim strPath As String
strPath = Environ("TEMP") ' определяем путь к временной папке
strPath = strPath & "\Отчет.xls" 'задаем имя файла
DoCmd.OutputTo acOutputQuery, "qdf1", acFormatXLS, strPath 'Выгружаем
'как после выгрузки открыть файл Excel с данными (показать его пользователю в Excel)
|
| |
| |
| |
| |
|
|
| | Примеров масса
ну вот тут можно что-нибудь выковырять
http://hiprog.com/forum/read.php?id_forum=1&id_theme=6973&page=2 | |
| |
| |
| |
|
|
| | Смотрел эту тему раньше но сразу не понял что там есть.
Спасибо наковырял . | |
| |
| |
| |
|
|
| | Метод DoCmd.OutputTo сам умеет открывать созданный файл.
Справку читать не пробовали?  | |
| |
| |
| |
|
|
| |
DoCmd.OutputTo acOutputQuery, "qdf1", acFormatXLS, strPath, True
|
| |
| |
| |
| |
|
|
| | Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Visible = True
xl.Workbooks.Open "C:\temp.xls"
Set xl = Nothing | |
| |
| |
