这个错误通常是因为读取文本文件时,读取的行数超出了文本文件的行数。可以在读取文本文件之前,使用以下代码获取文本文件的行数:

Open 'C:\test.txt' For Input As #1
Dim i As Integer
i = 0
Do Until EOF(1)
    Line Input #1, sLine
    i = i + 1
Loop
Close #1

其中,'C:\test.txt' 是文本文件的路径,i 就是文本文件的行数。可以把 i 保存在一个变量中,在读取文本文件时,设置一个循环,读取 i 行即可。


原文地址: http://www.cveoy.top/t/topic/nnJj 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录