aus Access als Excel-XLSX und -CSV wegspeichern
14.07.2015 07:36:49
vso
ich möchte eine Auswertung, die in Access läuft, über Excel als Excel-xlsx und auch noch als Excel-csv wegspeichern.
Wie teile ich das Excel mit?
Der Code sieht zur Zeit so aus und läuft auch, erzeugt aber nur das xlsx (Dim-Block habe ich weggelassen):
Set rstDaten = Datenbank.OpenRecordset("SELECT Feld1, Feld2, Feld3 " & _
"FROM QS_001_Daten " & _
"WHERE Feld2 LIKE '*0*'")
'*** Ein Excel-Sheet starten
Set Zielapplikation = New Excel.Application
Zielapplikation.Visible = True
Set wkbZieldatei = Zielapplikation.Workbooks.Add()
Set wksZielTabelle = wkbZieldatei.Worksheets(1)
'*** Tabelle umbenennen
wksZielTabelle.Name = "Output"
'*** Spaltenüberschriften
Set rngZielBereich = Range("A1")
For Each Feld In rstDaten.Fields
rngZielBereich.Value = Feld.Name
Set rngZielBereich = rngZielBereich.Offset(, 1)
Next
'*** Daten in Excel einfügen
Set rngZielBereich = wksZielTabelle.Range("A2")
rngZielBereich.CopyFromRecordset rstDaten
'*** Wegspeichern als xlsx:
With Zielapplikation
.ActiveWorkbook.SaveAs "H:\5570\IT-Sec-Admin\06_Work\Test.xlsx"
.Quit
End With
Set Zielapplikation = Nothing
Set rngZielBereich = Nothing
Danke vorab für jeden Tipp!
Volker