Question

vba 读取txt文件的第8行内容怎么写?

关键是第八行,我自己找了个函数,看不出哪个是关于行的
谁告诉我怎么弄呢?
Private Sub CommandButton1_Click()

Dim filename, inputstring As String
Dim i As Integer
Dim data
i = 1
filename = "d:\WYKS.txt" '本列TXT文件放在D盘中
Open filename For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, inputstring '读TXT文件一行
data = inputstring
If i <> 1 Then
.........
End If
i = i + 1
Loop
Close #1

End Sub

Answer 1

Private Sub CommandButton1_Click()

Dim filename, inputstring As String
Dim i As Integer
Dim data
i = 1
filename = "d:\WYKS.txt" '本列TXT文件放在D盘中
Open filename For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, inputstring '读TXT文件一行
data = inputstring
If i =8 Then
msgbox("第八行数据是" & data)
End If
i = i + 1
Loop
Close #1

End Sub

追问

这个函数不用 DO while 用 for i=......行吗