|
Hallo zusammen,
ich habe ein Problem. Ich habe einen Ordner mit mehreren hundert CSV Dateien mit Messwerten. Ich scheitere aber daran eine Makro zu schreiben mit der ich folgende Aktion durchführen kann:
CSV Dateien öffnen, und je nach Beginn des Dateinamen (Dateinamen besteht aus unterschiedlicher Nummer + Datum) in unterschiedliche Spalten fortlaufend einfügen.
Beispiel:
CSV Datei 1 - "Z01_Z10_D140515" - In Spalte A-D einfügen (variable Zeilenanzahl)
CSV Datei 2 - "Z01_Z10_D140516" - A-D unterhalb einfügen
...
CSV Datei x - "Z11_Z20_D140515" - In Spalte E-H einfügen
CSV Datei x+1 - "Z11_Z20_D140515" - E-H unterhalb einfügen
usw.
Mein Problem ist nun das ich zwar einen Code habe der alle CSV Dateien eines Ordners öffnet und unereinander einfügt, jedoch scheitere ich an der Sortierung nach Dateinamen.
Option Explicit
Sub x()
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, 1).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
strName = Dir
Wend
End Sub
Kann mir jemand bei diesem Problem helfen?
Danke.
Stefan
|