错误语句第一次运行良好，但第二次它给出错误 9

问题描述

如果工作表存在，我想打开它。如果工作表不存在，我会使用 on error goto。
在这种情况下，VBA 会将新工作表添加到我的工作簿中。
第一次工作表不存在时它工作正常并且 VBA 将新工作表添加到工作簿中，但如果第二次发生同样的事情，程序将停止并给出错误 9:

9：下标超出范围

我不知道哪里出了问题。

在我使用的代码下方：

Sub verplaats()
    x = 2

V010:
    Sheets("Input").Select
    bladnaam = Mid(Cells(x,3).Value,1,5)

    On Error GoTo V020
    Sheets(bladnaam).Select
    GoTo V030

V020:
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = bladnaam

V030:
    x = x + 1
    GoTo V010
End Sub


   

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）