Predmet:Re: export u excel (redosled kao u reportu)
Evo nešto što sam ja našao ali neznam radi li:
PreuzmiIzvorni kôd (Text):Dim appExcel As Excel.Application
Dim wbk As Excel.Workbook
Dim wks As Excel.Worksheet
Dim sOutput As String
Dim rng As Range
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim sSQL As String
Const cTabTwo As Byte = 1
DoCmd.Hourglass True
' set to break on all errors
Application.SetOption "Error Trapping", 0
sOutput = CurrentProject.Path & "c:\Book1.xls"
' Create the Excel Applicaiton, Workbook and Worksheet and Database object
Set appExcel = Excel.Application
Set wbk = appExcel.Workbooks.Open(sOutput)
Set wks = appExcel.Worksheets(cTabTwo)
sSQL = "select * from qry_Client_Ranking"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
Set rng = A1: G26 (How TO DEFINE THE RANGE OBJECT?)
rng.CopyFromRecordset rst
Ima toga još guglaj malo; upiši ovo u google:vba export access to excel
Miro