Sub XlExport()
Dim appXL As Excel.Application
Dim wk As Excel.Workbook
Dim rst As Recordset
Set appXL = New Excel.Application
Dim xxx As Variant
' The path/name of the XL file goes here.
Set wk = appXL.Workbooks.Open("C:\a 2\temp.xls")
'open Query/table here
Set rst = CurrentDb.OpenRecordset("zztemp2", dbOpenForwardOnly)
wk.Worksheets("sheet1").Range("a1") = rst!Field1
rst.MoveNext
wk.Worksheets("sheet1").Range("a2") = rst!Field2
'clean up behind yourself and quit excel
Set rst = Nothing
wk.Close (True)
Set wk = Nothing
appXL.Quit
Set appXL = Nothing
End Sub