ich bin fast am verzweifeln. Ich versuche per vba makro mehrere csv Dateien in eine Tabelle zusammenzuführen. Habe hierzu auch ein Makro gefunden und einige Pfade angepasst. Muss umbedingt in utf-8 und komma getrennt formatiert sein. Hier da Makro welches ich gefunden habe.
Vielleicht könnt ihr mir ja helfen.
Besten Dank im Voraus
Sub ImportAllCSV()
Dim FName As Variant, R As Long
R = 1
FName = Dir("C:\Users\Florian\Desktop\Umsatzanalyse\jc-2014*.csv")
Do While FName ""
ImportCsvFile FName, ActiveSheet.Cells(R, 1)
R = ActiveSheet.UsedRange.Rows.Count + 1
FName = Dir
Loop
End Sub
Sub ImportCsvFile(FileName As Variant, Position As Range)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & FileName _
, Destination:=Position)
.Name = Replace(FileName, ".csv", "")
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ","
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
_
1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub