Datei öffnen
14.09.2004 20:55:05
S.
ich möchte aus eine Access Abfrage in Excel einfügen.
Jedoch ist die gleich Abfrage für verschiedene Dateien möglich.
Wie kann ich in VBA beim öffnen der Datenbank die Datei auswählen. Ich habe den Code ,wie ich ihn bisher habe unten angefügt.
Anstelle der der Verzeichnisangabe und der Dateian gabe hätte ich gerne die Variablen für den Dateinamen (neudatei) und den Pfad (Pfad) stehen, die ich vorher ermittlet habe.
Sub einlesen
Dim neudatei As String
Dim Pfad As String
ChDir "C:\"
neudatei = Application.GetOpenFilename("Access Datebase,*.mdb")
Pfad = neudatei
Pfad = Left(Pfad, InStrRev(Pfad, "\") - 1)
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=C:\Test\Datenbank.mdb" _
), Array( _
" ;DefaultDir=C:\Test;DriverId=281;FIL=MS Acc" _
), Array("ess;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT... usw.