vba - VBA 错误处理，将一个错误定义为一个错误

Question

我通过 VBA 宏启动 Python。如果 Python 路径不好，我想要一个正确的错误消息。我在 2 台不同的计算机上使用此宏，并且这 2 台计算机上的 Python 路径不一样。2 条路径位于 2 个不同的单元格名称 path_Python 和 path_Python_2 这是我的代码：

Function launchPython() As Boolean
Dim pathScript As String

pathScript = [path_files] + "code.py"

On Error GoTo err
    Shell [path_Python].Value & " " & pathScript
    launchPython = True
    Exit Function

err:
    On Error GoTo err2
        Shell [path_Python_2].Value & " " & pathScript
        launchPython = True
err2:
    launchPython = False
    MsgBox "Error: please check Python paths"

End Function

问题是，当 2 条路径不好时，我没有进入 err2，而是阻止了 VBA 错误消息

err:
    On Error GoTo err2
        Shell [path_Python_2].Value & " " & pathScript

我该如何解决这个问题？非常感谢

Answer 1

我不会尝试将命令发送到可能丢失的路径，而是检查文件是否存在并尝试。您可以使用许多函数之一，例如 http://allenbrowne.com/func-11.html中的 FileExists ，或者只是检查 dir$ 返回非空白。

Dim Path as string

path = path_python

if dir(path) = "" then 
  path = path_python2
  if dir(path) = "" then err.raise
end if

shell path  & " " & pathScript