title image


Smiley Re: verschiedene Tabellenblätter auswählen beim Export ??
Das geht z.B. so:



Function ExcelExportTabellenblatt(Optional J As Long = 0)

Dim FName, M As Long

If J = 0 Then J = Year(Date)

FName = "E:\Temp\Acc2Exc.xls"

On Error Resume Next

Kill FName

On Error GoTo 0

For M = 1 To 12

CurrentDb.QueryDefs!qryAcc2Exc.SQL = "SELECT Firma, Preis, Datum FROM MeineTabelle WHERE " & _

"Datum BETWEEN #" & Format(DateSerial(J, M, 1), "yyyy-mm-dd") & "# AND #" & _

Format(DateSerial(J, M + 1, 0), "yyyy-mm-dd") & "# ORDER BY Datum"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "qryAcc2Exc", FName, True, _

Format(DateSerial(J, M, 1), "mmm.yyyy")

Next M

End Function



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: