im Excel Makro Datei zum öffnen auswählen

Question

Hallo zusammen,


... ich komm mal wieder nicht drauf :-(

ich möchte in nem Makro eine Datei öffnen, die er user aber im Explorer aussuchen soll.
Also auf eine Schaltfläche klicken, dann soll der Explorer aufgehen, der User sucht die Datei aus und dann geht das Makro in der ausgewählten Datei weiter.

Danke schon mal
Gruß aus Stuttgart
Andreas

Answer 1

Hallo Andreas,

Dim strVerzeichnis$
strVerzeichnis = "E:\eigene Dateien"
‚ Überprüfen ob Verzeichnis vorhanden
If Dir(strVerzeichnis, vbDirectory) <> "" Then ChDir strVerzeichnis Else Exit Sub
dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
‚ Auf die Variable dat wird der Dateinamen geschrieben

Gruß Hajo

Answer 2

Hallo Hajo,

dankeschön für den Tipp.. war fast etwas zu umfangreich, das hier genügt mir:

file = Application.GetOpenFilename
Workbooks.Open Filename:=file

aber da wär ich nicht drauf gekommen

Daaaankeschön :-)

LG
Andreas