VBA Syntax Problem
Jule
es geht eigentlich nicht direkt um Excel sondern um Access und VBA. Ich möchte abfragen aus einer Access DB in Excel Datein exportieren. Mein Programm für eine Datei funktioniert auch gut, aber ich habe ca.100 Dateien und habe nun versucht eine Schleife zu bauen. Jedoch soll die entstehende Exceldatei dann immer den Name der jeweiligen Abfrage bekommen. Und das scheint nun nicht zu funktionieren. Vielleicht kann mir jemand helfen? Würde mich sehr freuen.
Programm:
Private Sub Befehl1_Click()
Dim db As DAO.Database
Dim i As DAO.QueryDef
Dim s As DAO.QueryDefs
Set db = CurrentDb()
Set s = db.QueryDefs
For Each i In s
If Left(i.Name, 2) = "Ab" Or Left(i.Name, 2) = "AB" Then
On Error Resume Next
Kill "C:\...\Test\i.Name.xls"
On Error GoTo 0
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "i.Name", "C:\...\Test\i.Name.xls", _
True, "Tabelle1"
End If
Next i
End Sub
Das Problem tritt ohne Schleife mit direkter Eingabe der Abfrage nicht auf. Die Datei wird eh neu erstellt.
Würde mich über Anregungen sehr freuen.