Question

我一直在努力使这项工作可行，但我似乎无法弄清楚。我有从here获得的这段测试代码。

Sub UsingErr()

On Error GoTo eh

   Dim total As Long
   total = "aa"

Done:
    Exit Sub
eh:
    Debug.Print "Error number: " & err.Number _
        & " " & err.Description
End Sub

这应该可以帮助我理解错误管理，但是运行它后，我在Compile Error: Expected Function or Variable上得到了err.Number；它专门突出显示err。

任何帮助将不胜感激。

Answer 1

我在您的代码中注意到的一件小事是“ err”是小写字母。当我将代码粘贴到空白工作簿中并运行它时，Excel在代码中自动将大写的“ Err”大写。正如评论中的人所述，这可能意味着您还有其他打开的内容，其中有“ err”的定义冲突。尝试在不打开任何其他文件的情况下运行代码。

VBA：编译错误：err.Number上的预期功能

1 个答案: