Startpfad für GetOpenFilename

Scherrer@gmx.de Uli Scherrer

unread,

Feb 19, 2002, 5:15:56 PM2/19/02

to

Hallo NG

ich will mit GetOpenFilename einen Dateinamen holen.

Leider funktioniert das Setzen des gewünschten Startpfades mit
DefaultFilePath nicht.
Der Dialog startet mit einem anderen Pfad.

Wie kriege ich das hin?

vielen Dank für eine Antwort

Uli

Excel 2000

Frank Arendt-Theilen

unread,

Feb 20, 2002, 2:52:20 AM2/20/02

to

Hallo Uli,
wie folgt (Zeilenumbruch korrigieren):

Sub Testen()
Dim strDateiname
Application.DefaultFilePath = "c:\windows"
strDateiname = Application.GetOpenFilename("Textdateien (*.txt),
*.txt")
MsgBox strDateiname
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Daniel Schmitz

unread,

Feb 20, 2002, 3:22:21 AM2/20/02

to

Hi Frank,

die Idee ist ja wirklich nicht schlecht, aber wie Uli bereits erwähnte wird
die Änderung von ....DefaultFilePath für den Öffnen-Dialog nicht angenommen.
Wenn ich Dein Makro nehme ist der Pfad den GetOpenFilename öffnet immer
noch der selbe wie vor der Änderung mittels Default... Wenn man allerdings
danach in Extras->Optionen nachschaut hat sich der Standardpfad so geändert
wie hier angegeben (c:\Windows). Das bringt einen allerdings bei dem
momentanen
Problem nicht weiter. Und ich denke mal, wenn man so etwas machen möchte ist
es auch nicht sinnvoll direkt den Standardpfad anders zu setzten, da es in
den meisten
Fällen einen bestimmten Sinn hat das er da steht wo er steht.... ;-)
Vielleicht gibt es aber noch eine andere Lösung die mir leider bisher auch
noch nicht
eingefallen ist. Ich hatte es wie folgt versucht

Sub test()
Dim vorher As String

vorher = Application.DefaultFilePath
Application.DefaultFilePath = "D:\"
Application.AltStartupPath
Application.GetOpenFilename ("Textdateien (*.txt), *.txt")
Application.DefaultFilePath = vorher
End Sub

allerdings auch ohne Erfolg.

Bin mal gespannt ob bzw. was für eine Lösung es für dieses Problem gibt.

Gruß
Daniel

"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:n8l67u82i69nbenqa...@4ax.com...

Günter Weil

unread,

Feb 20, 2002, 3:49:34 AM2/20/02

to

Hallo Uli,

du mußt nicht den Standardpfad, sondern das aktuelle
Verzeichnis setzen(siehe OH zu ChDir).
Wenn du auch das Laufwerk ändern willst, mußt du
zusätzlich ChDrive anwenden.
z.B.
ChDrive "U"
ChDir "U:\Daten"
Gruß
Günter

>-----Originalnachricht-----

>.
>

Uli Scherrer

unread,

Feb 20, 2002, 5:25:55 AM2/20/02

to

Hallo Günter,

Danke für Deine Antwort, das klappt prima.

Weißt Du vielleicht auch, wo ich das aktuelle Verzeichnis abfragen kann?
Ich möchte vor Start des Makros das Verzeichnis erfragen und nach Ausführung
wieder zuweisen.
Leider habe ich nichts derartiges in der OH gefunden wie "getCurDir" oder
so.

Gruß Uli

"Günter Weil" <g.w...@hotmail.com> schrieb im Newsbeitrag
news:<642c01c1b9eb$8531a180$3bef2ecf@TKMSFTNGXA10>...

Frank Arendt-Theilen

unread,

Feb 20, 2002, 7:17:32 AM2/20/02

to

Hallo Uli,
mit Filesystem.CurDir

Frank Arendt-Theilen

unread,

Feb 20, 2002, 7:17:31 AM2/20/02

to

Hallo Uli und Daniel,
tja, wenn man nicht alles noch einmal durchtestet und richtig liest...
Aber kaum macht man's richtig, schon funktionierts mit (Zeilenumbruch
korrigieren):

Sub Testen()
Dim strDateiname
FileSystem.ChDrive "E"
FileSystem.ChDir "E:\Frank Arendt-Theilen"

strDateiname = Application.GetOpenFilename("Textdateien (*.txt),
*.txt")
MsgBox strDateiname
End Su

MfG Frank