Dateiauswahl
15.02.2007 15:31:00
Juergen
ich habe bei meiner recherche den folgenden code hier gefunden:
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
If dat "Falsch" Then Workbooks.Open dat
die funktion geht auch in excel jedoch benötige ich für word eine funktion die mir ein auswahlfenster für die datei zur verfügung stellt. die funktion application.getopenfilename scheint es im word vba nicht zu geben.
gibt es für word eine lösung?
mfg
Jürgen Schiel