Automatischer Textimport
29.01.2004 14:59:18
Dominik
Ich habe einen Ordner mit sehr vielen (über 500 Stück!) *.txt-Dateien.
Nun möchte jede für sich in eine Excel-Datei umwandeln (am Besten automatisch)
Manuell sieht es momentan so aus:
1. neues Sheet
2. Textimport
3. anpassen der Spaltentypen (Text, Datum etc.)
4. Import ausführen
5. Als *.xls abspeichern
Mit dem Macrorecorder sieht das so aus (am Beispiel der Datei 888.txt):
Sub Makro2()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Lutz\Eigene Dateien\Meine empfangenen Dateien\888.txt" _
, Destination:=Range("A1"))
.Name = 888
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 4, 2, 2, 2, 1, 2, 2, 2)
.Refresh BackgroundQuery:=False
End With
End Sub
Nur wie schaffe ich es, dass es automatisch für die restlichen im Ordner befindlichen gemacht wird?
Herzlichen Dank für jede Hilfe!!!
Gruß
Dominik