1

这似乎是一个只需要我试一试看看的问题，但我做不到。

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

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

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

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

感谢您的任何想法。

4

1 回答 1

2

MsgBox当然，如果代码有时会在无人看管的情况下运行，那么如果周围没有人看到它，你就不想抛出 a 。如果您知道服务器的 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
于 2013-05-11T12:46:08.817 回答