エクセルでURLに特定文字が含まれるか調べる方法

質問

• エクセルを使用して複数のURLから特定文字が含まれるURLのみを調べる方法を教えてください。
• マクロを使用して、複数のURLのページソースに特定文字列「news」が含まれているURLを抽出する方法を試しましたが、文字コードの問題や存在しないURLの処理について問題が発生しています。
• 解決方法がわからないため、マクロの改善や他の方法でURLの特定文字の検索を行う方法を教えてください。

回答No.9

DOUGLAS_ · ベストアンサー

＃最初にお断わりしておきます。
＞ここまで親切に対応して下さって誠にありがとうございます。
とのことですが、私は、プロフィールに書いておりますように、「自分自身のパソコンのスキルを向上するためにこちらに参加して」いるのですから、そのようなお気遣いは無用です。

　webdesign254 さんがお尋ねのご質問自体が、汎用性があり、私自身も役に立つときがあるかも知れませんし、また、他の読者の方にとっても、有為な内容になると判断されたから回答させていただきましたが、同じようなご質問でも、ご質問者さん独自の用に特化されたような（汎用性のない）内容でしたら、ここまでの回答はいたしません。

------------------------------------------------------

　さて、
＞A1セルを処理しない
の件ですが、これは、
For i = 2 ～～
を
For i = 1 ～～
にすればＯＫです。

------------------------------------------------------

＞マクロは基礎から知識ゼロ
とのことですが、元々のコードと改変されたものの何処が変わったかというようなことを、比較する癖をお付けになったら、処理や操作が変わった原因も分かるようになりますし、そういうところから、スキルがアップするかと存じますので、是非、そういう習慣を付けてください。

　コードの比較の仕方は、
１）エクセルのワークシートＡ列に元々のコードをコピペ
２）Ｂ列に新しいコードをコピペ
３）Ｃ列に「=A1=B1」のような式を入れて、これを最終行までコピー
４）以上で、変わったところの行は、Ｃ列の値が「FALSE」になりますので、何処が変わったのかが一目瞭然となります。

　このヤリカタは、コード自体に行の追加・削除があった場合は、比較が難しくなりますので、ホントは、もっと複雑な式をＣ列に入れるべきですが、取り敢えずは、そのようにして比較するということを覚えてください。
　ちなみに、「複雑な式」というのは、下記です。
=INDIRECT(ADDRESS(ROW(),1))=INDIRECT(ADDRESS(ROW(),2))

------------------------------------------------------

　ついでに
＞エラーの詳細が詳しくわかった方が・・・
の件ですが、
＞のところを、
＞～～～～～～
＞このように変更してみました。
とするとお書きなので、ちょっとビックリいたしました。

　そこに羅列された「Case = ～～」の数字の部分ですが、概ねすべてのステータスが網羅されていて、その点についての知識がおありなのだなと思ったのですが、ただ、「200」はいいとしても、「402」が抜けていました。

　で、ここは、ズラ～～っとコードを並べるのではなくて、ほぼ「全て」のステータスを書き出すようにするわけですから、
Select Case .Status ～～～ End Select
の部分を、全面的に書き直しましょう。

　つまり、「Case 200 とそれ以外」ということにしてしまえば、コードの記載が下記の２行で済んでしまいます。
Case Else
Cells(i, 2).Value = .Status ～～

------------------------------------------------------

　ということで、新しいコードは、下記です。

　ただし、
＞タイムアウトを設定しないまま使用する方がよい
とのことですので、関連のコードも削除しました。

'-----------------------------------------------------

Sub KeyWord_Search()
　　Dim objHTTP As Object
　　Dim i As Long
　　Const strKW As String = "news"
　　Set objHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
　　With objHTTP
　　　　For i = 1 To Range("A1").End(xlDown).Row
　　　　　　Cells(i, 2).Select
　　　　　　If Cells(i, 2) = "" Then
　　　　　　　　.Open "GET", Cells(i, 1).Value, False
　　　　　　　　On Error Resume Next
　　　　　　　　.Send
　　　　　　　　Select Case .Status
　　　　　　　　　　Case 200
　　　　　　　　　　　　Cells(i, 2).Value = " なし"
　　　　　　　　　　　　If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = " あり"
　　　　　　　　　　Case Else
　　　　　　　　　　　　Cells(i, 2).Value = .Status & ":" & .statusText
　　　　　　　　End Select
　　　　　　　　.Abort
　　　　　　End If
　　　　　　If Err.Number <> 0 Then Cells(i, 2).Value = Err.Description
　　　　　　If Err.Number = -2147483638 Then Cells(i, 2).Value = "タイムアウト"
　　　　　　On Error GoTo 0
　　　　Next
　　End With
　　Set objHTTP = Nothing
End Sub

お礼

たった今最終の動作チェックを終えましたが、問題なく処理できることを確認いたしました。
今回のコードはかなり優秀で、同様のことを実現したい他の読者さんにとっても大きな助けになると思います。
HTTPステータスコードを一括で調べたい時、といった使い方もできそうです。

＞＞マクロは基礎から知識ゼロ
＞とのことですが、元々のコードと改変されたものの何処が変わったかというようなことを、比較する癖をお付けになったら、処理や操作が変わった原因も分かるようになりますし、そういうところから、スキルがアップするかと存じますので、是非、そういう習慣を付けてください。

おっしゃる通りNo.4のコードが「For i = 1」となっていることに今気が付きました。
自分のスキルアップのためにも比較する癖をつけていきたいと思います。
エクセルのコード比較のやり方は、こんな使い方もあるのだと驚きました。

（今まで私の場合は宝の持ちぐされでしたが…他の読者さんの助けにもなるかと思い）WinMergeという文章比較のフリーソフトも、コードの比較に役立つかもしれません。

HTTPステータスコードに関しましては、例えば503の場合は一時的なサーバーダウンなので後でチェックするなど、HTTPステータスコードを確認できた方が対処できる選択肢が増えると思いました。

DOUGLAS_さん、本当にありがとうございました。