Prikazi cijelu temu 06.12.2012 09:25
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: export u excel (redosled kao u reportu)
Imaš i ovo:
PreuzmiIzvorni kôd (Text):
  1. Dim db As DAO.Database, rs As DAO.Recordset, str1Sql As QueryDef, strCrt As String, strDt As String
  2.     Set db = CurrentDb
  3.     Set rs = db.OpenRecordset("SELECT distinct fieldname FROM table (or query Probably without parameters) ORDER By fieldname;")
  4.         '**** fieldname, consider this to be how the records are grouped within the dataset.
  5.    
  6.     rs.MoveLast
  7.     rs.MoveFirst
  8.    
  9.     Do While Not rs.EOF
  10.         strCrt = rs.Fields(0)
  11.         Set str1Sql = db.CreateQueryDef("" & strCrt, "SELECT table.*  FROM table WHERE table.fieldname = '" & strCrt & "';")
  12.         DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "" & strCrt, "C:\filename " & ".xls", True
  13.         DoCmd.DeleteObject acQuery, "" & strCrt
  14.     rs.MoveNext
  15.     Loop
  16.    
  17.     rs.Close
  18.     Set rs = Nothing
  19.     Set db = Nothing
  20.  
  21.             ********************************
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