Predmet:Re: export u excel (redosled kao u reportu)
Imaš i ovo:
PreuzmiIzvorni kôd (Text):Dim db As DAO.Database, rs As DAO.Recordset, str1Sql As QueryDef, strCrt As String, strDt As String
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT distinct fieldname FROM table (or query Probably without parameters) ORDER By fieldname;")
'**** fieldname, consider this to be how the records are grouped within the dataset.
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
strCrt = rs.Fields(0)
Set str1Sql = db.CreateQueryDef("" & strCrt, "SELECT table.* FROM table WHERE table.fieldname = '" & strCrt & "';")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "" & strCrt, "C:\filename " & ".xls", True
DoCmd.DeleteObject acQuery, "" & strCrt
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
********************************
Ako želiš složit isto kao u svom report-u onda u ovoj funkciji je napisano ovo:ORDER By fieldname
Ti trebaš imati i u reportu neku kolonu po kojoj je to složeno da bi kad izvoziš u exel po toj koloni složio.
Miro