複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。 海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。 ---------- Sub KeyWord_Search() Dim objHTTP As Object Dim i As Long Const strKW As String = "news" Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") With objHTTP For i = 1 To Range("A1").End(xlDown).Row .Open "GET", Cells(i, 1).Value, False .Send If .Status = 200 Then If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = "＊" Next End With Set objHTTP = Nothing End Sub ---------- きちんと抽出されるURLもあれば、以下のようなエラーが発生するURLもあります。 ---------- 実行時エラー'-2147023783(80070459)': Unicode 文字のマッピングがターゲットのマルチバイト コード ページにありません。 ---------- 恐らく文字コードの問題だと想像していますが、マクロについて全く知識がないため解決方法がわかりません。なお、上記のマクロはGoogle検索で調べたものをそのままコピー貼り付けしたものです。 また、存在しないURLと「処理がタイムアウト」するURLは処理から除外したいと考えいます。 よろしくお願いします。
↧