TXT --> Excel , ab einer bestimtmen Zeile?
01.06.2004 13:16:23
Gremlin
meinen TXT files sind etwa 10k zeilen groß und sind gegliedert mit Datum Uhrzeit und der entsprechenden Meldung.
Ich möchte jetz folgendes tun:
auslesen der txt in excel ab einem gewissen Datum (2 Tage zuvor).
Hab das mit dem Befehl "StartRow:=1234" versucht aber ich bekomem es nicht hin das er das erste gewollte Datum findet.
C:\test.txt
Mon May 31 19:00:47 2004
Meldung
Mon May 31 21:00:53 2004
Meldung
Mon May 31 21:00:58 2004
Meldung
Tue Jun 01 00:00:42 2004 Meldung
Tue Jun 01 00:00:47 2004
Meldung
Tue Jun 01 04:02:42 2004
Meldung
Tue Jun 01 04:02:54 2004
Makrorecorder Code:
Sub test4()
' test4 Makro
' Makro am 01.06.2004 von Gremlin aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\test.txt", Destination _
:=Range("A1"))
.Name = "test"
.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 = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
auslesen funktioniert, nur sobalt ich versuche etwas zu ergänzen bekomme ich Fehler *heul*
Naja vielleicht hat jemand nen Tip wie ich das angehn kann.
Danke
Gremlin