Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Dialog fileopen

Forumthread: Dialog fileopen

Dialog fileopen
18.04.2005 13:04:14
Martin
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog fileopen
18.04.2005 13:25:19
Ralf
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
AW: Dialog fileopen
18.04.2005 13:38:39
Martin
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
Anzeige
AW: Dialog fileopen
18.04.2005 14:00:18
Ralf
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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige