CSV-Dateien-Import in erste Spalte Dateiname
27.03.2015 16:07:30
Stef@n
mit folgendem Makro lese ich die Inhalte aller CSV-Dateien
eines "auszuwählenden" Verzeichnisses ein.
Dabei werden die Inhalte ab Zelle B1 ... eingetragen
Jetzt möchte ich gerne, dass in der Spalte A
bei JEDEM Datensatz (Zeile) einer Datei der
jeweilige Dateiname eingetragen wird.
Gibt es eine Möglichkeit den Code entsprechend zu erweitern ?
Freu mich auf einen Tipp
Besten Gruss
Stef@n
hier der bestehende Code
Option Explicit
Sub IMPORTCSV()
Dim fd As FileDialog
Dim strFolder As String
Dim strName As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show -1 Then Exit Sub
strFolder = fd.SelectedItems(1) & "\"
strName = Dir(strFolder & "*.csv")
While Len(strName) > 0
Workbooks.OpenText Filename:=strFolder & strName, Local:=True
Rows(1).Delete
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
strName = Dir
Wend
End Sub
Anzeige