Zum Verzeichnis auswählen
09.04.2019 16:13:52
EtoPHG
Hallo,
z.B. diesen Code in ein Modul und der Schaltfläche zuweisen:
Sub VerzeichnisEinlesen()
Dim fDlg As FileDialog
Dim sDir As String
Set fDlg = Application.FileDialog(msoFileDialogFolderPicker)
With fDlg
.Title = "Verzeichnis für Dokumente auswählen"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show = -1 Then sDir = .SelectedItems(1)
End With
Set fDlg = Nothing
If sDir "" Then
MsgBox "Das Verzeichnis ist: " & sDir, vbInformation, "Gewählt"
Else
MsgBox "Nichts ausgewählt!", vbExclamation, "Abbruch"
End If
End Sub
Wenn eine Verzeichnis ausgewählt wurde, befindet sich der Pfad in der Variablen sDir.
Was du genau damit machen willst, ist mir weder aus deiner Anfrage noch aus der Struktur der Beispielmappe klar. Völlig unklar ist, was du aus dem Verzeichnis weiterverarbeiten willst, sprich deine Daten auslesen willst. Was sind im gewählten Verzeichnis für Dateien vorhanden? Was soll wie von wo ausgelesen und wohin übertragen werden? Was verstehst du unter "automatisch aktualisiert"? Kommen neue, andere Dateien dazu? Fallen welche weg? Fragen über Fragen!
Gruess Hansueli