2013-05-11 35 views
1

這可能看起來像一個問題,只需要我試試看,但我不能這樣做。當從服務器調用宏時會出現消息框嗎?

我一直在爲我公司開發一個應用程序,該應用程序可以根據某些字段是否爲空來生成所謂的例外報告。 這可以手動運行,也可以從服務器調用 - 服務器在每個月的第一天調用它。

這個問題 - 因爲兩個運行調用同一個宏,它們都會運行相同的函數。因此,如果我在宏內部放置一個MsgBox函數,可以阻止從服務器運行時生成的報告?

[我知道我可以在本質上覆制功能,並創建兩個宏,一個用於服務器和一個用於用戶 - 但不希望這樣做]

其目的時手動稱爲是公正以通知用戶它是否成功運行(發現異常或未找到任何)我不想添加它,以防它阻止其他代碼執行。

感謝您的任何想法。

回答

2

當然,如果代碼有時無人值守,那麼如果沒有人看到它,你不想拋出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 
+0

我想這需要一些東西來檢測服務器的名稱或者可能調用命令的東西嗎?這是好的,我將看看我是否可以將它應用到下一個版本的應用程序中。謝謝 – Katana24 2013-05-11 19:38:23

相關問題