AW: Textdatei mit Trennzeichen einlesen
Karl-Otto
Hallo Mike
Hier ein Versuch:
Sub OS_IMP()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = ";"
sSearchPath = "c:\vt\Pfad\*.txt"
sPath = "c:\vt\Pfad\"
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, sWord) > 0 Then
AnzFound = AnzFound + 1
Sheets("Tabelle1").Cells(AnzFound, 11) = FileName
Sheets("Tabelle1").Cells(AnzFound, 10) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub
Gruß
KO