Dialog fileopen

Bild

Betrifft: Dialog fileopen
von: Martin
Geschrieben am: 18.04.2005 11:04:14
Hallo Excel-Gemeinde,
habe folgendes VBA-Problem:
Die Prozedur


Sub öffnen()
Application.Dialogs(xlDialogOpen).Show
End Sub

habe ich ja noch hinbekommen. Gibt es aber darüber hinaus die Möglichkeit hier den Pfad vorzugeben, so dass man nur noch die einzelne Datei auswählt? Ein Tipp wäre nett. Herzlichen Dank im Voraus!
VG, Martin
Bild

Betrifft: AW: Dialog fileopen
von: Ralf (Schwabenland)
Geschrieben am: 18.04.2005 11:25:19
Hallo Martin,
z. B. so:
Option Explicit

Sub öffnen()
Dim strVerzeichnis As String
strVerzeichnis = "C:\Temp"
ChDir strVerzeichnis
Application.Dialogs(xlDialogOpen).Show
End Sub

Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: Dialog fileopen
von: Martin
Geschrieben am: 18.04.2005 11:38:39
Hm, macht er irgendwie nicht. habe nur einen anderen Pfad angegeben:

Sub öffnen()
Dim strVerzeichnis As String
strVerzeichnis = "O:\abc Schriftart.u. Logos W95-NT"
ChDir strVerzeichnis
Application.Dialogs(xlDialogOpen).Show
End Sub

Wird dennoch der Standard-Pfad angezeigt. Gibt's noch 'ne andere Möglichkeit?
Gruß, Martin
Bild

Betrifft: AW: Dialog fileopen
von: Ralf (Schwabenland)
Geschrieben am: 18.04.2005 12:00:18
Hallo Martin,
arbeite mit der UNC-Pfad, da der Laufwerksbuchstabe veränderbar ist.

Sub öffnen()
Application.Dialogs(xlDialogOpen).Show ("\\Server-co\Web\Eigene Webs\cdhall") 'anpassen
End Sub

Hoffe es hilft.
Gruß
Ralf
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dialog fileopen"