Office: Pfad auslesen

Hallo zusammen

Von einem Ordner (dieser befindet sich immer wieder an einem anderen Ort) werden lediglich ein paar bestimmte Dateien benötigt. Diese Dateien möchte ich per vba nacheinander aufrufen und bestimme Daten übertragen.

Problem:
Ich möchte nun einen Pfad auswählen und ohne eine Datei zu öffnen den Pfad zur Weiterverwendung auslesen.

Konto im Internet keine Lösung finden.

Besten Dank für eure Anregungen und Lösungen.

Pietro

:)

 

Hallo,

teste mal:

Option Explicit

Public Sub Test()
Dim objFileDialog As FileDialog
Dim strPath As String
Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
With objFileDialog
.AllowMultiSelect = False
If .Show Then strPath = .SelectedItems(1) & "\"
End With
Set objFileDialog = Nothing
If strPath <> vbNullString Then

'Dein Code

End If
End Sub

 

Hallo Nepumuk

Besten Dank für die rasche Antwort.

Genau das habe ich lange vergeblich gesucht.

Besten Dank und einen schönen Abend

Pietro