Application.GetOpenFilename+Pfad vorgeben
01.06.2005 10:34:07
SteffenS
ich brauche bitte Eure Hilfe.
Ich möchte per Dialog eine Datei öffnen, dabei soll als Ausgangspfad das aktuellen Arbeitsverzeichnis der Mappe + \Briefe genommen werden.
Mit meinem Code geht das leider nicht.
Mein Code:
ChDir "\"
ChDir ThisWorkbook.Path & "\Briefe"
Dim datname As String
'Pfad und Datei einsetzen
datname = Application.GetOpenFilename("Worddatei (*.doc), *.doc")
Was muss ich tun damit es funktioniert?
Danke Euch schonmal
Steffen Schmerler