Dateiauswahldialog Startpfad mit Serverwahl

Bild

Betrifft: Dateiauswahldialog Startpfad mit Serverwahl
von: Conelius
Geschrieben am: 25.08.2015 10:40:57

Hallo zusammen,
besteht die Möglichkeit den Startpfad für ein Dateiauswahldialogfenster in einem Netzwerk festzulegen?
Leider konnte ich keine Möglichkeit für den Fall finden, dass sich die zu öffnenden Dateien auf einem anderen Server befinden.
Beispielhaft wird der Pfad wird bei folgendem Makro nicht gesetzt:


Sub Pfad()
ChDir "\\Servername\Ordner1\Ornder2\"
varDatei = Application.GetOpenFilename(Title:="Bitte wählen Sie die Datei aus")
Workbooks.Open varDatei
End Sub

Beste Grüße
Cornelius

Bild

Betrifft: AW: Dateiauswahldialog Startpfad mit Serverwahl
von: Matthias
Geschrieben am: 25.08.2015 12:28:02
Hallo Cornelius,
das Problem liegt daran, dass dein Server nicht als Laufwerk eingerichtet ist. ChDir kann nur innerhalb des aktiven Laufwerks den Ordner ändern. Normal müsste man ChDrive "C" einbaun, dann ChDir und er würde dein Standardverzeichnis mit Freuden ändern. Geht nur leider nicht mit Netzlaufwerken.
Die Funktion hier ist wohl eher was für dich:

 Declare Function SetCurrentDirectory Lib "kernel32.dll" _
    Alias "SetCurrentDirectoryA" ( _
    ByVal lpPathName As String) As Long

 Sub Pfad()
    'SetCurrentDirectory "C:\Pfad"
    ' oder auch
    SetCurrentDirectory "\\Server\Ordner1"
    varDatei = Application.GetOpenFilename(Title:="Bitte wählen Sie die Datei aus")
    Workbooks.Open varDatei
 End Sub
lg Matthias

Bild

Betrifft: AW: Dateiauswahldialog Startpfad mit Serverwahl
von: Conelius
Geschrieben am: 25.08.2015 13:45:15
Hallo Matthias,
perfekt das klappt einwandfrei! Vielen Dank :)
Beste Grüße
Cornelius

Bild

Betrifft: Application.Filedialog
von: Rudi Maintaire
Geschrieben am: 25.08.2015 12:51:24
Hallo,
da hast du alle Möglichkeiten.

Sub aaa()
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .InitialFileName = "\\server\Freigabe\Ordner\"
    If .Show = -1 Then
      Workbooks.Open .SelectedItems(1)
    End If
  End With
End Sub
Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen aufteilen"