vb运行时提示实时错误'62' 输入超出尾文件

2020-09-05 07:47

Sh2(30000), Pi(30000);判断1号文件是否结束, K(30000); + " Dim H(30000), us(30000) Dim Pp(30000);".Path + "".xls"，若不结束则继续。 Input #1; + ", UCS(30000) Open App, S(30000) Dim C(30000).., Vp(30000), St(30000), r4, f(30000).Path + ", Vs(30000) Dim Igr(30000) Dim Ed(30000).xls" For Input As #1 Open App, DEN(30000);, Es(30000), ud(30000);计算结果, AC(30000).", Pf(30000), r3,Please wait;A井, Sh1(30000); For Output As #2 i = 1 N = 0 Do While Not EOF(1) ', Sz(30000), Pe(30000), r2;Calculating now , Pc(30000), r1, Gr(30000) Dim Vcl(30000);Print "

siwna ·

0 0

输入超出文件尾（错误 62）
不能对文件尾位置后进行读入。此错误有以下原因和解决方法：
1）Input # 或 Line Input # 语句要到已读完文件或空文件中读入数据。
在 Input # 语句之前直接使用 EOF 函数来测试是否处在文件的结尾。
2）在以 Binary 访问所打开的文件上使用 EOF 函数。

EOF 只能用在顺序 Input 访问所打开的文件上。在 Binary 访问所打开的文件上使用 Seek 和 Loc。