Datei Namen einfügen
18.09.2021 19:32:56
Heinz
Ich habe hier ein Problem(chen) und hoffe das mir einer helfen kann.
Folgender Code fügt die Datei-Namen aus dem angegebenen Pfad in eine Tabelle ein.
Das funktioniert wunderbar.
Das Problem ist das die Tabelle wächst und in dem Folder neue, andere Dateien stehen.
Das einfügen der Dateinamen soll also immer in der ersten leeren Zelle von oben in
der Spalte A beginnen.
Ich habe eine Zeile (auskommentiert) die mir die erste leere Zelle markiert,
aber weiter komme ich nach mehreren Versuchen nicht.
Ich hoffe das mir jemand helfen kann und bedanke mich schonmal im Voraus.
Hier ist der Code
Private Sub CommandButton2_Click()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("E:\neuerversuch\Rechnungen\")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = fDatei.Name
End If
Next fDatei
'Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
End Sub
Heinz
