Office: Pfadabfrage Fenster

Guten Morgen liebe Forenuser
Gibt es in VBA eine vorgefertigte Form zur Angabe eines Datei-Pfades, der einen String dessen zurück gibt? Sowas wie bei öffnen und speichern, aber ohne konkretes File, sondern nur der Pfad. Sollte es wohl geben, aber ich finde ihn nicht *tongue.gif*
Vielen Dank für Eure Hilfe

Phil

:)

 

Moin, Phil,

Bei einer gespeicherten Mappe kann ActiveWorkbook.Path verwendet werden. In beiden Fällen fehlt das abschließende Trennzeichen.

 

Guten Morgen Jinx
Danke für dein Antwort. Habe mich wohl etwas unklar ausgedrückt. Ich suche einen Befehl, der das "Pfad angeben Fenster" von Windows/Office angibt. Hmmm... wie soll ich das beschreiben. Ich suche das Fenster, das öffnet, wenn man "Datei Speichern Unter" oder "Öffnen" auswählt. Dabei will ich aber nur den Pfadangeben können, worin sich zu bearbeitende Dateien befinden.
Ist es so verständlicher, was ich suche? Danke für die Hilfe

Phil

 

Moin, Phil,

ist IMHO abhängig davon, ob dies zu Beginn (ohne dass eine Mappe geöffnet wurde) oder nach dem öffnen/Speichern einer Mappe geschieht - normalerweise nimmt mein Excel immer das zuletzt eingestellte Verzeichnis (CurDir), nur bei keiner vorherigen Aktion Application.DefaultFilePath...

 

HAllo Philip

So ganz hab ich's glaube ich auch nicht verstanden...
Schau dir mal diese Dialoge an:
evtl. ist da was passendes dabei.
Option Explicit

'#####################
Sub netzwerk_durchsuchen()
Dim Datei
Dim dat
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = "Netzwerk...."
.InitialFileName = "d:\" 'oder was auch immer
If .Show = -1 Then
For Each Datei In .SelectedItems
MsgBox Datei 'Zur weiteren verwendung
Next Datei
End If
End With
End Sub

'#####################
Sub ordner_suchen()
Dim ordner
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
.Title = "Netzwerk...."
.InitialFileName = "d:\" 'oder was auch immer
If .Show = -1 Then ordner = .SelectedItems(1) 'Zur weiteren verwendung
MsgBox ordner
End With
End Sub

'#####################
Public Sub test()
Dim dlg As Object
Set dlg = CreateObject("MSComDlg.CommonDialog")
On Error Resume Next
With dlg
.cancelerror = True
.dialogTitle = "Mein Dialog"
.initdir = "D:\"
.showopen
End With
MsgBox dlg.Filename
End Sub

'######################
Public Sub Aufruf()
MsgBox get_Folder("Was soll ich machen?", "D:\")
End Sub

Public Function get_Folder(Optional capt, Optional StartVerzeichniss)
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, capt, &H200, StartVerzeichniss)
If Not objShell Is Nothing Then get_Folder = objShell.Self.Path
End Function


ransi

 

Hi Ransi
Hab deinen Beitrag gar nicht gesehen. Ich will dieses Fenster, das sich in Excel, Word etc. öffnet, wenn man eine Datei an einen Ort speichern will. Darin kann man dann den Pfad auswählen, wohin die Datei gespeichert werden soll. In dem Fall gibt man auch gleich den Namen der Datei an. Ich hätte gerne nur ein solches Fenster um den Zielpfad meiner veränderten Dateien anzugeben.
Ist es so etwas klarer? Schaue gleich deine Vorschläge an. Vielen Dank (zum ca. 20mal *biggrin.gif*)

Phil

 

Super, das zweite und vierte machen genau das, was ich will. Ausser dem Design ist nicht anders, oder?

 

HAllo Philip

FileDialog gibts (glaube ich) erst ab XP.
Ausserdem kann man damit auch in den Verzeichnissen "aufwärts" wechseln.
BrowseForFolder ist was das "aufwärts wechseln" etwas sperrig.

ransi

 

Super, vielen Dank Ransi

Phil