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