vb 逐行读取文本文件

用Open打开文件，然后用Line行读取即可。

代码如下：

Dim tempStr as String '定义变量tempStr为字符串
Open "C:\Test.txt" For Input As #1 '打开文件
While Not EOF(1)  '读取到结束
   Line Input #1, tempStr '读取一行到变量tempStr
'对应的处理
Wend '未结束继续
Close #1 '关闭

按钮的代码自己写调用下面函数就可以了
Function 读取指定行文本内容(文本路径, 行数)
Dim fso,myfile,i,flag,tempp
flag = 1
Set fso=CreateObject("scripting.FileSystemObject")
If fso.FileExists(文本路径) then
Set myfile = fso.openTextFile(文本路径,1,false)
Else
flag = 0
End If
For i=1 To 行数 - 1
If Not myfile.AtEndOfLine Then
myfile.SkipLine
tempp = myfile.Line
End If
Next
If flag = 1 Then
If Not myfile.AtEndOfLine Then
读取指定行文本内容 = myfile.ReadLine
Else
读取指定行文本内容 = "溢出！"
End If
myfile.close
Else
读取指定行文本内容 = "文件不存在！"
End If
End Function
sub 写入剪切版(内容)
dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "Text", 内容
Set objIE = Nothing
End sub

Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。

分太少了