VBAでXMLインポートエラーを無視させたいのですが。

VBAで以下を定期実行しています。

Sub Reload_XML()
On Error Resume Next
ActiveWorkbook.XmlMaps(\"quotes_対応付け\").DataBinding.Refresh
End Sub
当然、On Error Resume Nextを書いていますので、インターネット接続エラーなどは無視して、次回の実行時に再度実行しますので、デバッグにはなりません。

ところが、データをインポートしているところのサーバーがダウンすると、XMLインポートエラーメッセージが出てきて、VBAが停止してしまいます。

エラーが出ても、VBAを止めずにすむ方法を教えてほしいです。

宜しくお願い致します。

No.1 回答者： tool_a 回答日時： 2009/07/08 20:32

If Err.Number = (無視したいエラー番号) Then

Resume Next
End If

こういうことですか？

この回答へのお礼

ご回答ありがとうございます。
頂いた内容も過去に試したことがあります。
結果はダメでした。
デバッグはでませんが、xmlインポートエラーは出てしまいます。

お礼日時：2009/07/08 20:59