Question

这似乎是一个问题，只需要我试一试，但我不能这样做。

我一直在为我的公司开发一个应用程序，它可以根据某些字段是否为空白生成所谓的异常报告。这可以手动运行或从服务器调用 - 它在每个月的第一天由服务器调用。

问题 - 因为两个运行调用相同的宏，它们都将运行相同的功能。因此，如果我在宏中放置一个MsgBox函数会阻止生成报告，从服务器运行时？

[我知道我本质上可以复制该功能并创建两个宏，一个用于服务器，一个用于用户 - 但不想这样做]

手动调用时的目的只是告知用户是否成功运行（发现异常或未找到任何异常）我不想添加它以防万一它阻止执行的其余代码

感谢您的任何想法。

Answer 1

当然，如果代码有时会无人看管，那么如果周围没有人看到它，你就不想抛出MsgBox。如果您知道服务器的Windows网络名称，那么您可以考虑尝试让代码执行类似

的操作

Dim wshNet As Object
Set wshNet = CreateObject("WScript.Network")
If wshNet.ComputerName <> "MYSERVERNAME" Then
    MsgBox "Exceptions found (or not)."
End If
Set wshNet = Nothing

从服务器调用宏时是否会出现消息框？

1 个答案: