malleshg24
07-16-2019, 11:47 AM
Hi Team
I am extracting data from text file line by line,
and I want to skip data seperator line
Below line whenever I come across. plz assist.Thanks.
---------------------------
Do Until ts.AtEndOfStream
line = ts.ReadLine
If InStr(line, "----*") > 0 Then
Debug.Print line
ts.SkipLine
Else
ActiveCell.Value = ts.ReadLine
ActiveCell.Offset(1, 0).Select
End If
Loop
Regards,
MG
I am extracting data from text file line by line,
and I want to skip data seperator line
Below line whenever I come across. plz assist.Thanks.
---------------------------
Do Until ts.AtEndOfStream
line = ts.ReadLine
If InStr(line, "----*") > 0 Then
Debug.Print line
ts.SkipLine
Else
ActiveCell.Value = ts.ReadLine
ActiveCell.Offset(1, 0).Select
End If
Loop
Regards,
MG