VBScriptを使って、あるページを自動保存しようとしています。
set objIE = WScript.CreateObject("InternetExplorer.Application")でオブジェクトを作成して、無条件に1 to 10のループをまわして i & ".html"を取得しています。
そこで、objIE.Navigate(i & ".html") でページが存在する場合は保存、ページが存在しない(404 not found)場合は無視(ループを抜ける)。
としたいのですが、このエラーを拾う方法を教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
HttpRequest でページの有無を先に調べたら?
Set p = CreateObject("MSXML2.XMLHTTP")
p.open "GET", "目的のURL", False
p.send
If p.Status <> 404 Then
MsgBox "ページは存在するようだ"
Else
MsgBox "Not found."
End If
全角 SP でインデントを表現してますので、適当に変換して下さい。
ただし、ページが存在しない場合にエラー404を正しく返さない行儀の
悪いサーバがあります。
また、エラー403の場合などはどう扱うのか考えた方が良さげです。
成程、早速使わせていただきます。鯖は固定なんであんまその辺は考慮する必要が無いんですが、とりあえず200(OK)以外のstatusは全部はじくようにします。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- サーバー IIS10でホスト名を設定するとHTTP Error 404が出てしまいます 1 2022/04/04 13:17
- スペイン語 急にあるサイトが見れなくなりました。 6 2022/03/28 09:33
- アプリ Edgeを操作するアプリについて 4 2023/05/11 22:48
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- その他(インターネット接続・インフラ) ブラウザにIPアドレス入力した時 1 2022/06/16 19:08
- その他(プログラミング・Web制作) パイソンでのプログラミングについて 3 2022/08/11 20:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBAでリンク切れをチェックしたい。
Excel(エクセル)
-
VBAでchromeを動かしたいのですが、エラー出ます。
その他(パソコン・スマホ・電化製品)
-
URLのリンク切れをマクロを使って表示する方法を教えてください。
その他(プログラミング・Web制作)
-
-
4
EXCEL VBAでたくさんのURLの一覧からHTTPレスポンスコードを取得したい。
Access(アクセス)
-
5
VBA URLDownloadToFileについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
ActiveCell.FormulaR1C1の変数
-
実行時エラー'-2147467259(8000...
-
On ErrorでエラーNoが0
-
【VBA】ワークブックを開く時に...
-
VBAでfunctionを利用しようとし...
-
pythonのopenpyxlについて
-
マクロで"#N/A"のエラー行を削...
-
python初心者です。
-
String""から型'Double'への変...
-
インポート時のエラー「データ...
-
グラフを表示するとき「’~’メソ...
-
日付書式のString型からData型...
-
実行時エラー 438 の解決策をお...
-
フランスの生年月日(jj/mm/aaaa)
-
VBA IE要素 objIE.document.all...
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
VBでSQL文のUPDATE構文を使った...
-
VBスクリプトでIEの404 not fou...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
【VBA】ワークブックを開く時に...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報