Txt-Datei mit Trennzeichen einlesen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() ChDir "C:\" Workbooks.OpenText Filename:="C:\1.txt", Origin:=xlMSDOS, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _ :=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, _ Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _ Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _ Array(12, 1), Array(13, 1)), TrailingMinusNumbers:=True End Sub

Hallo Andi
Versuch' das hier:


Sub Test()
Dim sWord1 As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim anzfound As Integer
Dim intRow As Integer
Dim rng As Range
Dim varCol As Variant
Dim az As Range
Dim r As Range
Sheets("Tabelle1").Select
Sheets("Tabelle1").Rows("1:20000").ClearContents
'Application.ScreenUpdating = False
'Application.Calculation = xlManual
anzfound = 0
'''Pfad anpassen
sSearchPath = "c:\vt\boerse\TestDat.txt"
sPath = "c:\vt\boerse\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
''' hier wird entweder ein " C " oder ein " P " gesucht
If InStr(1, InputData, " C ") Or InStr(1, InputData, " P ") > 0 Then
''' alternativ geht aber auch eine Leerstelle " "
''' hier wird ein "," gesucht
If InStr(1, InputData, ",") > 0 Then
anzfound = anzfound + 1
Sheets("Tabelle1").Cells(anzfound + 1, 7) = FileName
Sheets("Tabelle1").Cells(anzfound + 1, 1) = InputData
End If
Loop
Close #1
FileName = Dir
Application.StatusBar = "TestDat:  " & anzfound & "  Datensätze gefunden"
Loop
End If
End Sub

Grüße
KO

Sub ZEITEN() Range("A4:B1500").ClearContents With Application .Calculation = xlManual .ScreenUpdating = False End With Dim sWord1 As String, sPath As String, sSearchPath As String, FileName As String, InputData Dim anzfound As Integer Dim sWord2 As String Dim intRow As Integer anzfound = 0 sSearchPath = "c:\vt\boerse\*.txt" sPath = "c:\vt\boerse\" FileName = Dir(sSearchPath) If FileName <> "" Then Do While FileName <> "" Open sPath & FileName For Input As #1 Do While Not EOF(1) Line Input #1, InputData If InStr(1, InputData, "Uhr") > 0 Then anzfound = anzfound + 1 Sheets("ZEIT").Cells(anzfound + 3, 1) = FileName Sheets("ZEIT").Cells(anzfound + 3, 3) = InputData End If Loop Close #1 FileName = Dir Application.StatusBar = "Status: " & anzfound Loop End If End Sub

Sub TESSSST() With Application .Calculation = xlManual .ScreenUpdating = False End With Dim sWord1 As String, sPath As String, sSearchPath As String, FileName As String, InputData Dim anzfound As Integer Dim sWord2 As String Dim intRow As Integer anzfound = 0 sSearchPath = "c:\WUTemp\13838.txt" sPath = "c:\WUTemp\" FileName = Dir(sSearchPath) If FileName <> "" Then Do While FileName <> "" Open sPath & FileName For Input As #1 Do While Not EOF(1) Line Input #1, InputData If InStr(1, InputData, " ") > 0 Then anzfound = anzfound + 1 Sheets("Tabelle2").Cells(anzfound + 3, 2) = FileName Sheets("Tabelle2").Cells(anzfound + 3, 1) = InputData End If Loop Close #1 FileName = Dir Application.StatusBar = "Status: " & anzfound Loop End If End Sub

Beliebteste Forumthreads (12 Monate)

Txt-Datei mit Trennzeichen einlesen?

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Txt-Datei mit Trennzeichen einlesen?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread