URLの羅列からソースの中に「WordPress」

質問

A列にURLの羅列が記入されています。

そのURL先のサイトのソースの中に、
「WordPress」の記述がないものを、別セルに表示させたいです。

おそらく、マクロで出来ると思うのですが、
そのマクロはどのような記述になるでしょうか？

エクセル2016です。
よろしくお願いいたします。

回答No.1

mt2015

XMLHTTPオブジェクトを使用すれば良いかと思います。
以下のサンプルでは、A列のURLのソースを取得し、「WordPress」と言う文字列が含まれていなければB列に「○」を表示します。

Microsoft.XMLHTTPで上手く動かなければ、MSXML2.ServerXMLHTTPで試してみてください。

Sub ChkHTML()
　　Dim xHttp As Object
　　Set xHttp = CreateObject("Microsoft.XMLHTTP")
　　r = 1
　　Do While Range("A" & r).Value <> ""
　　　　sUrl = Range("A" & r).Value
　　　　xHttp.Open "GET", sUrl, False
　　　　xHttp.send
　　　　sHtml = xHttp.responseText
　　　　nRtn = InStr(sHtml, "WordPress")
　　　　If nRtn = 0 Then
　　　　　　Range("B" & r) = "○"
　　　　End If
　　　　r = r + 1
　　Loop
　　Set xHttp = Nothing
End Sub

補足

回答ありがとうございます！

やってみると、WordPressの記述ないURLに◯が付きました。

ただ、10個ほどURLで「アクセスが拒否されました」と出てしまいます。
範囲を指定してのマクロとかは、できますでしょうか？