作者yauhh (哟)
看板Visual_Basic
标题Re: [VBA ] 输入已超过档案结尾??
时间Mon Dec 8 10:04:33 2008
※ 引述《hsiangtai (请您帮帮我 !!!)》之铭言：
: 不好意思~因为我试着用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
while 回圈通过档案结尾的检查,但 for 回圈忽视档案结尾限制,
仍然要读固定长度的资料. 在这段资料读取中,可能会有档案结尾.
其实只要用 while 控制回圈就好,回圈内用 i, j 变数调整阵列位置.
大概如下:
i = 0 : j = 1
while not eof(1)
input #1, O11(i, j)
j = j + 1
if j > 9 then
i = i + 1
j = 0
end if
wend
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.231.16.157