ник: snipe
Подключите библиотеку Excel
(редактор VBA Tools -References поставить галочку Microsoft excel ( ит ам чего то еще написано - там одна такая библиотека))
Dim db As Database
Dim xl As Object
Set db = CurrentDb
'db.QueryDefs("excelDOM").SQL = "SELECT tDOM.*;"
DoCmd.OutputTo acOutputQuery, "excelDOM", acFormatXLS, "C:\excelDOM.xls", False
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Filename:="C:\excelDOM.xls"
xl.Visible = True
xl.Sheets("excelDOM").Select
xl.Cells.Select
xl.Cells.EntireColumn.AutoFit
xl.Range("A1").Select
db.Close
xl.Visible = True
Set db = Nothing
Set xl = Nothing