title image


Smiley Mach's mal so...


Private Sub SF_Ausgabe_Excel_EW_Click()

Dim DB As DAO.Database, qdf As DAO.QueryDef, CurDir as String

Set DB = Currentdb

CurDir = Left(Db.Name,Len(Db.Name)-Len(Dir(Db.Name)))

DB.Querydefs("qryExcel").sql = "SELECT * FROM [A Wochenbericht EW für Excel] " & _

" WHERE BDat Between #" & Format(Me!DatumVon,"yyyy-mm-dd") & _

"# And #" & Format(Me!DatumBis,"yyyy-mm-dd") & "# AND [ABREW]=True AND [AbrEWEinzel]=True"

docmd.TransferSpreadsheet acExport,,"qryExcel",CurDir & "Test.xls",True

End Sub



vorher musst du natürlich eine Abfrage "qryExcel" anlegen. Wenn du dann mit Excel weiterarbeiten willst, solltest du das nach dem Export machen.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: