[已解决]程序报错，输入超出文件尾，请大神们帮忙看看呐~~拜托拜托

喵了个咪

这是我运行的发现整个程序运行终止的地方，提示输入超出文件尾。excel运行可能需要原文件，excel里第二个工作表里面的程序运行有问题，麻烦大神从逻辑上帮我看看？不胜感激
Sub max(ouf_sta_rac, LOC1, WIDTH1, NI, fz_max, fz_min)

    Dim fz(100) As Single
    Dim inpFileName, mystr As String    '可以不声明变量类型，自动为variant，
    Dim i As Integer

    inpFileName = ThisWorkbook.Path & "\" & ouf_sta_rac
    Open inpFileName For Input As #1

    For i = 1 To NI
    Line Input #1, mystr
    Next i

    fz(1) = Val(Mid(mystr, LOC1, WIDTH1))
    fz_max = fz(1)
    fz_min = fz(1)

    Line Input #1, mystr
    i = 2
    Do While Not EOF(1)
        fz(i) = Val(Mid(mystr, LOC1, WIDTH1))
        If fz(i) >= fz_max Then
            fz_max = fz(i)
        End If

        If fz(i) <= fz_min Then
            fz_min = fz(i)
        End If

        i = i + 1
        Line Input #1, mystr '读取一行
    Loop
    fz(i + 1) = Val(Mid(mystr, LOC1, WIDTH1))
    If fz(i + 1) >= fz_max Then
        fz_max = fz(i + 1)
    End If

    If fz(i + 1) <= fz_min Then
        fz_min = fz(i + 1)
    End If

    Close #1

End Sub

最佳答案

月排行榜 / 总排行榜

一沫昔阳虹w

2016-10-27 21:53

把数据文件删除了，再运行试试，可能本来储存了n个数据，后面代码改了，要读取n+个数据

跳转到最佳答案楼层

一沫昔阳虹w

把数据文件删除了，再运行试试，可能本来储存了n个数据，后面代码改了，要读取n+个数据

喵了个咪

一沫昔阳虹w 发表于 2016-10-27 21:53
把数据文件删除了，再运行试试，可能本来储存了n个数据，后面代码改了，要读取n+个数据

谢谢了，发现是自己之前的文件有问题，犯了个蠢错，程序是没有问题的，麻烦你啦，不胜感激~~