作者hsiangtai (请您帮帮我 !!!)
看板Visual_Basic
标题[VBA ] 输入已超过档案结尾??
时间Sun Dec 7 22:18:05 2008
不好意思~因为我试着用vba下去写东西~
可是执行的时候会出错，侦测的结果『输入已超过档案结尾』
就是下面程式码『Input #1, O11(i,j)』这一行
请问一下问题出在哪边?
因为我是照着书这样子打的~可以告诉我错在哪吗
Private Sub UserForm_Activate()
Dim i, j As Integer
Open "C:\O11.CSV.xls" For Input As #1
i = 0
While Not EOF(1)
For j = 1 To 9
Input #1, O11(i, j)
Next j
i = i + 1
Wend
Close #1
Open "C:\H11.CSV.xls" For Input As #1
i = 0
While Not EOF(1)
For j = 1 To 9
Input #1, H11(i, j)
Next j
i = i + 1
Wend
Close #1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.125.209.148