ich habe folgendes Problem:
Ich habe eine Excel Tabelle und um die 100! .csv Dateien.
Die .csv Dateien sind alle gleich aufgebaut und sollen (mit der Überschrift) untereinander in das Excel-Tabellenblatt importiert werden. Trennung durch Semikolon usw.
Manuell kann ich nur eine Datei nach der anderen importieren....
Ich habe ein Makro aufgezeichnet, welches auch funktioniert - aber nur mit einer Datei!
Ich habe versucht einen Loop zu kopieren und in das Makro einzubauen - habe aber keinen Plan wie das wirklich funktioniert. Auch kann ich die .csv nicht irgendwie mit *.csv angeben, dann wird schon die Datei nicht mehr gefunden....
Kann mir hier jemand weiterhelfen?
In Vorraus schon vielen Dank!
Hier das aufgezeichnete Makro:
Sub Import()
' Import Makro
' Makro am 22.11.2006 von Schlager aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Documents and Settings\Desktop\ordner\dateiname.csv" _
, Destination:=Range("A1"))
.Name = "dateiname"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub