VBA-Excel-出现错误时转到用户窗体

Question

发生错误时，我想返回到用户窗体并更改在窗体上输入的信息，然后将其重新传递到宏中，然后从以下位置继续：如果Len（Dir（sFilePath＆newfol，vbDirectory））= 0。 。

If Len(Dir(sFilePath & newfol, vbDirectory)) = 0 Then
            MkDir sFilePath & newfol & "\"
            On Error GoTo UserForm1
        Else
            MsgBox ("Folder already exists please re enter new folder name")
            'End
            UserForm1.Show
            MoveAndSave_Reports
End If

上面给了我一条错误消息：编译错误：“ On Error GoTO UserForm1”上未定义标签

Answer 1

当您使用“ On Error GoTo”语句时，您要告诉程序当它遇到错误时，请跳至当前过程中的特定行。 例如：

On Error GoTo ErrorHandler
x = 10 / 0
msgbox "x = infinity!"

ErrorHandler:
msgbox "Cannot divide by zero"

在此示例中，当代码遇到错误时（在我的“ On Error”语句之后），它将停止正在执行的操作，并开始在ErrorHandler标签（由于末尾使用冒号而成为标签）上执行代码。 运行此代码，您将永远不会看到消息框显示x = infinity。 一旦它试图通过除以零而遇到错误，它将跳到ErrorHandler标签，并给我一条消息，提示我不能除以零。

Chip Pearson 在这里对基本错误处理进行了很好的介绍。