Import Certain Lines from a Large Text File

If you're talking about the OpenText method, StartRow is a Variant, which in practical terms means it's a Long, which can contain numbers up to 2^31.

Why not try it?

Unfortunately it doesn't work that way. The method that I used is OpenText and it requires an integer instead of long. Attached is the screen shot of the error that I've got.

How about opening the file for sequential access and discard records until you get where you want?

Hi blueperfume
I think this macro will help you..
Sub Macro2()

Dim retstring, file_path As String
Dim i As Long

Set fs = CreateObject("Scripting.FileSystemObject")

file_path = Cells(1, 3).value & "\" & Cells(2, 3).value

If (fs.fileExists(file_path) = True) Then
Set a = fs.OpenTextFile(file_path, 1, False)
i = 1
Do While a.AtEndOfStream <> True
If (i = Cells(3, 3).value) Then
Cells(4, 3).value = a.readline
Exit Do
Else
retstring = a.readline
End If
i = i + 1
Loop
a.Close
End If
End Sub

This will assume that
Cell A3 contains whole directory path of a text file
Cell B3 sontain file name with its extension (.txt or whatever)
cell C3 contain the line # which you want to copy
Then in cell D3 it will print that line #
I hope this is what you want

Suhas, please edit your post to add code tags. If you don't know how, consult the forum rules.