Hallo Leute,
ich möchte eine Accessabfrage ausführen über den VBA-Code in Excel.
Dim accApp As Object
Dim ls_file As String
Dim ls_pfad As String

ls_pfad = "C:\N\"
ls_file = "sw.mdb"
If Dir(ls_pfad & ls_file) = "" Then
Beep
MsgBox ("Keine Datei gefunden.")
Else
Set accApp = CreateObject("Access.Application")
accApp.OpencurrentDatabase ls_pfad & ls_file

'Abfrage ausführen
==&gt hier sollte jetzt der Befehl stehen der entweder meine Anfügeabfrage öffnet oder
==&gt eine Prozedur in Access ausführt, die die Anfügeabfrage öffnet
accApp.closecurrentdatabase
Set accApp = Nothing
End If
End Sub
Für einige Hinweise wäre ich sehr dankbar, bis dann
michael