![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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でエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
.VBSだとADODBのプロバイダが見...
-
【VBA】ワークブックを開く時に...
-
VBA処理中に途中で止まってしま...
-
「実行時エラー '3167' レコー...
-
変数にするとエラーになる理由は?
-
エクセルVBA 「On Error GoTo...
-
データベース操作時エラーについて
-
VBAでのファイル読込エラー...
-
ある1人の友達のLINEで、少しの...
-
VBAのリストボックスで、横スク...
-
ExecuteNonQueryメソッドの戻り値
-
IBM Notes9のメールをExcelVBA...
-
エクセルVBAで埋め込みグラフ(C...
-
VBでコンパイル エラー 変数...
-
ACCESS2007 VBA 「INSERT INTO...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報