![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
MSXML2.DOMDocument を用いて、xml のデータを取得しています。
相手のサーバーがダウンしていると、
Dim xmlDoc As New MSXML2.DOMDocument
xmlDoc.async = False
xmlDoc.Load (taisyoURL)
↑
この部分でフリーズしてしまい、それ以降続行できません。
false も返ってくるわけではないのでどうしたらよいのか
困っております。
タイムアウト又は何かしらの方法でエラー処理をさせる
ことはできますでしょうか?
No.1ベストアンサー
- 回答日時:
ADODBのStreamオブジェクトで開いてみてはいかがでしょう
対象URLをHTTP://で始まる『絶対URL』で指示してみましょう
dim oStream as new ADODB.Stream
On Error Resume next
oStream.Open "絶対URL", adModeRead
On Error goto 0
if oStream.State then
xmlDoc.async = false
xmlDoc.Load( oStream )
oStream.Close
End if
といった具合で ・・・
すばやい回答ありがとうございます。
結局とりあえず、
Dim httpObj As New MSXML2.XMLHTTP
On Error GoTo RequestError
httpObj.Open "GET", taisyoURL, False
httpObj.send
If httpObj.Status Then
Dim xmlDoc As New MSXML2.DOMDocument
xmlDoc.async = False
xmlDoc.loadXML httpObj.responseText
…
というコードにしてみました。
ただ、サーバ落ちた状況を再現するのが手間が
かかるため、今度参照サイトが落ちた時にこれらの
テストをすることにしました。
お返事遅くなりまして申し訳ございませんでした。
先日の別件での回答を含め大変たすかりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
エクセルVBAでcode128のバー...
-
実行時エラー 3265「要求された...
-
「オブジェクト変数または With...
-
Excelでフィルタをかけると警告...
-
PowerPointVBAでスライドマスタ...
-
ExcelVBAで参照設定を自動に行う
-
エクセルマクロエラー「'Cells'...
-
オブジェクトが見つかりません
-
Excel VBA Collection.add で R...
-
[C#]static void 関数内でthis
-
テキストボックス中の文字列の...
-
VBA オブジェクトが空かどうか...
-
WordにOLEで埋め込んだExcelでW...
-
CLOBデータの取得方法
-
エクセルVBAでFor each文
-
VBAで作成するメール(開封確認...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAについてです。 初心者です...
-
VBAで作成するメール(開封確認...
おすすめ情報