vba 如何从指定行开始读取文本文件数据

Dim fso , sFile
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0
Const BeginLine = 5 '指定行,请修改
Set fso = CreateObject("Scripting.FileSystemObject")
Set sFile = fso.OpenTextFile( "1.txt", ForReading,TristateFalse) '打开文本文件，请修改
Do While Not sFile.AtEndOfStream
If sFile.Line >= BeginLine Then '从指定行开始读取文本文件数据
MsgBox sFile.ReadLine
End If
sFile.Skipline
Loop

sFile.Close
Set fso = Nothing
Set sFile = Nothing本回答被提问者采纳

是TXT文本吧，下面代码可以看看，o(∩_∩)o...哈哈
Private Sub Read()
On Error GoTo ErrorHandler ' 错误跳转
Dim txtLine
Dim FileObj
Dim TextObj
Dim FilePath
Dim m As Integer
Dim i As Integer
Dim SS As String
m = 4 ’设定数值
Range("E25:E200").ClearContents

FilePath = Range("文件路径")
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.GetFile(FilePath).OpenAsTextStream(1, 0)

For i = 1 To m ’ 略过m行
TextObj.SkipLine

Next

SS = TextObj.readline ’读取第m行的文本
Msgbox SS

TextObj.Close
Set TextObj = Nothing
Set FileObj = Nothing
Exit Sub
ErrorHandler:
If Err.Number = 62 Then MsgBox "AAAA", , "AA"
End Sub

Private Sub Command2_Click()
Dim str As String
i = 1
n = InputBox("请输入要从第几行开始读?")

Open "d:\123.txt" For Input As #1
Do
Line Input #1, a
i = i + 1
Do While Not EOF(1) And i >= Val(n)
Line Input #1, b
str = str & b & vbCrLf
Loop
Loop While Not EOF(1)
Cls
If Val(n) = 1 Then
Print a & vbCrLf & str
Else
Print str
End If
Close
End Sub