Datenimport
13.10.2008 11:17:00
Michael
beim Datenimport einer TXT-Datei mit Hilfe des Assistenten erhalte ich die Daten wunderschön
aufgeteilt in die jeweiligen Spalten.
Einziger Makel: die Daten in Excel haben nach jeder gefüllten Zeile eine zusätzliche Leerzeile.
Wäre schön, wenn ich im nachfolgenden Skript noch etwas "einbauen" könnte, was diese
Leerzeile schon beim Import verhindert, also nicht erst nach Import mit sortieren usw die Leerzeilen
verschwinden lassen...
Hier das was ich mit dem Makrorecorder aufgezeichnet habe:
Sub DatenImport()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;O:\Michael\ExcelVBA\Zahlungen2008.txt", Destination:=Range("A1"))
.Name = "Zahlungen2008"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 17
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Gruß & vielen Dank
Michael