ordner aus lesen
16.08.2019 16:39:30
speednetz
Bin das erste mal hier und hoffe das mir jemand behilflich ist.
Ich habe nur wenig Ahnung von VBA.
Problem:
ich habe eine Makro das mir die Dateinamen aus einem Ordner in einer Tabelle auf listet.
Das Makro läuft auch.
Mein Problem ist das ich den Ordner den ich aus lesen möchte jetzt immer in Makro
ändern muß.
Könnte mir jemand diese Macko so ab Ender Das Ich den Pfad aus E1 beziehe und den
Ordner aus F1.
Es würde aber auch schon reichen wenn Ich nur den Ordner ( 2019) in F1 vorgeben kann.
Hier ist Der Code:
Sub Aus_lessen()
'Ordner aus lessen
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("E:\Rechnung\2019\")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 3
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub
https://www.herber.de/bbs/user/131461.xlsmEs schön wenn mir das jemamd so ändern könnte.
Habe es versucht bekomme es aber nicht hin.
#Dank spednetz