Question

请参阅我的Sub下面的内容。如果在运行MyMacro宏时发生错误，它不会转到ErrHandler，只是表现为默认值，即On Error Goto 0

Sub GoGoGo()

    On Error GoTo ErrHandler

    Application.Run "'MyFile.xlsm'!Module1.MyMacro"
    Msgbox("Success!")
    Exit Sub

ErrHandler:
    MsgBox ("Error")

End Sub

有解决方法吗？

非常感谢任何收到的帮助：）

Answer 1

试试吧？我是VBA的新手，但可能有用。

Sub GoGoGo()

On Error Resume Next

Application.Run "'MyFile.xlsm'!Module1.MyMacro"
Msgbox "Success!"
On Error goto 0
MsgBox "Error"

End Sub

Excel VBA出错时GoTo无法正常工作

1 个答案: