Hallo zusammen,
ich würde gerne eine vorhandene Abfrage in einer Access DB per VBA öffnen und das Ergebnis in eine Excel-Datei schreiben. Es soll jedoch nicht die Abfragetabelle komplett nach Excel übertragen werden, sondern das Query-Ergebnis in spezielle Zellen (es wird eine Vorlage verwendet!).
Folgenden Code habe ich mir bisher zusammengebaut:
Public excel As excel.Application
Public workbook As workbook
Public db As DAO.Database
[code]Private Sub Befehl_Click()
Set excel = New excel.Application
excel.Workbooks.Open “P:\Pfad\Vorlage.xls"
Set workbook = excel.ActiveWorkbook
Set db = CurrentDb
Dim rs As DAO.recordset
Dim ws As worksheet
Set rs = db.OpenRecordset(”-queryname-")
worksheet.Visible = True
rs.MoveFirst
count = 0
Do Until count = 1
k = 0
For k = 0 To 1
ws.Cells(count, k + 3) = rs.Fields(k)
Next k
count = count + 1
rs.MoveNext
Loop
workbook.SaveAs "P:\Pfad\Vorlage2.xls"
excel.Workbooks.Close
excel.Quit
MsgBox (“Fertig!”)
End Sub[/code]
Leider bricht die Funktion immer ab, ohne mir einen Fehlercode auszugeben.
Kennt sich hier evtl jemand aus?
Vielen Dank und Grüße
Andi
