Dateien in Excel einlesen - Pfad aus Zelle
04.02.2018 15:26:18
erna
habe folgenden Code, um Dateien aus einem Ordner in Excel auszulesen.
Gibt es eine Möglichkeit, den Ordnerpfad aus einer festgelegten Excel-Zelle zu holen?
Vielen lieben Dank für Eure Hilfe.
Code:
Sub Dateienliste()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("xxxxxPfadxxxxx")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 2
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 19) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub