- #1
G
Gremlin
Neues Mitglied
Themenersteller
- Dabei seit
- 01.06.2004
- Beiträge
- 1
- Reaktionspunkte
- 0
Hallo zusammen,
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 <<<<=== ab diesem Punkt soll txt ausgelesen werden
Meldung
Tue Jun 01 00:00:47 2004
Meldung
Tue Jun 01 04:02:42 2004
Meldung
Tue Jun 01 04:02:54 2004
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
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 <<<<=== ab diesem Punkt soll txt ausgelesen werden
Meldung
Tue Jun 01 00:00:47 2004
Meldung
Tue Jun 01 04:02:42 2004
Meldung
Tue Jun 01 04:02:54 2004
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