问下各位高手vba读取txt文件的问题

ohohyo · 发表于 2009-5-12 09:11:00

各位高手，假如我有一个txt文件，格式大概是”angmokio.txt 23543 70127 8654 4081“ 我怎么能把那几个数提出来，显示在msgbox上

ohohyo · 发表于 2009-5-12 11:09:00

同样跪求跪求

fjfhgdwfn · 发表于 2009-5-12 11:55:00

Dim MyString, MyNumber
Open "TESTFILE" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, MyString, MyNumber ' 将数据读入两个变量。
Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
看这个例子了

ohohyo · 发表于 2009-5-12 12:23:00

谢谢试一试那个testfile是不是要写上文件路劲啊

ohohyo · 发表于 2009-5-12 13:45:00

怎么有错误呢大哥？

ohohyo · 发表于 2009-5-12 13:47:00

说 run-time error ‘62’
input past end of file

zzyong00 · 发表于 2009-5-12 15:55:00

Dim byt() As Byte, length As Long
Open "TESTFILE" For Binary As #1 ' 打开输入文件。
ReDim byt(LOF(1) - 1)
Get #1, , byt
MsgBox StrConv(byt, vbUnicode) ' 在立即窗口中显示数据。
Close #1 ' 关闭文件。