覆蓋Excel中內置的錯誤消息

對於我的previous question，我試圖從Data> Connections中捕獲連接錯誤。覆蓋Excel中內置的錯誤消息

我添加了一個測試連接來檢查，看看我的代碼工作正常，但是，刷新連接時，內置Excel中會出現對話框：

反正是有覆蓋此與自定義對話框MSGBOX如圖所示：

Dim cn As WorkbookConnection 
On Error GoTo ErrorHandler: 
For Each cn In ActiveWorkbook.Connections 
    cn.Refresh 
Next 
'On Error GoTo 0 
Exit Sub 
ErrorHandler: 
MsgBox "A connection could not be reached" & ": " & cn.name & ": " & cn.Description

最新編輯：怎麼我的代碼當前如下這是 -

Dim cn As WorkbookConnection 
Application.DisplayAlerts = False 

For Each cn In ActiveWorkbook.Connections 
    cn.Refresh 
    On Error GoTo ErrorHandler: 
Next 
'On Error GoTo 0 
Exit Sub 

Application.DisplayAlerts = True 

ErrorHandler: 
MsgBox "A connection could not be reached" & ": " & cn.name & ": " & cn.Description

來源

2015-10-13 Sean

如果你讀了你的前一個問題的答案好了，你會得到的回答你的當前問題。刪除'On Error GoTo 0'會掛鉤你想要添加自定義錯誤信息的處理程序。 –

@Jelly即使在註釋On Error GoTo 0時，它仍會拋出上述內容。 – Sean

您的自定義消息錯誤代碼？ –