Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei öffnen

Datei öffnen
14.09.2004 20:55:05
S.
ich habe folgendes Problem:
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen
Ramses
Hi
probiers mal so
...DSN=Microsoft Access-Datenbank;DBQ=" & neudatei...
die anderen Parameter kannst du ebenfalls so ersetzen
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige