Need to edge out the competition for your dream job? Train for certifications today.
Dim fName As String
Dim Word1 As String, Word2 As String, i As Long
'Some code to define the text file to use
'fName is the full path to the text file
fName = "C:\Test\FindLine.txt"
'Open the text file for input
Open fName For Input As #1
'Read the text file
Do Until EOF(1)
Word1 = Word2
Input #1, Word2
If Word2 = "Line" Then
'Some code to specify where to put the Word in the Excel sheet
'Here listing in column A in active sheet
i = i + 1
Cells(i, 1) = Word1
'Close the text file
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.