一个简单的小问题。但很急。。。。。。
Open ExcelPath For Input As #1打开了一个文件,不知道后缀名,可以用记事本打开有多行记录,但是用上面的方法确只能读一行就退出循环了。我用的是 do while not eof(1) 但现在用Binary该怎么样遍历所有行呢?也就是说用Open ExcelPath For Binary As #1怎样可以循环读取该文件每一行的数据呢?
原来的代码:
Open ExcelPath For Binary As #1
Do While Not EOF(1)
Line Input #1, StrName
Buf() = Split(StrName, "|")
MyRes.AddNew
MyRes.Fields("电话号码").Value = Trim(Buf(5))
MyRes.Fields("传真号码").Value = Trim(Buf(6))MyRes.Update
Loop
Close #1
MyRes.Close