Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Dialog fileopen"
In einem Dialog ausgewählte Spalten drucken Excel für die Zeit eines Dialogaufrufes ausblenden
Dialog-Datumseingabe vereinfachen und kontrollieren Adressdaten via Dialog in eine Adressdatei eintragen
Bestellfax über Dialog Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog
Dynamischen Dialog erstellen Arbeitsmappe aus Dialog schließen
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen Laufwerke im Dialog zur Auswahl anzeigen lassen