A列にURLの羅列が記入されています。
そのA列のURLは、1000以上あります。
そのURL先サイトのソースの中に、「wp-content」の記述がない場合。
そのURLの隣セルに「○」を表示させたいです。
これができるマクロはどのような記述になるでしょうか?
ちなみに、A列で取得してB列に「○」するだけのものはあります。
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
ですが、途中で「アクセスが拒否されました」と出たりして、
マクロが勝手に止まります。
なので、A列にあるURL全てを調べることができないでいます。
どうにか、マクロで自動で取得していくには、
どのような記述に直せばできるでしょうか?
エクセル2016です。
よろしくお願いいたします。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2019/03/09 10:06
2019/03/10 03:14
退会済みユーザー
2019/03/11 07:14
2019/03/11 08:33
退会済みユーザー
2019/03/11 20:13
2019/03/11 23:34
退会済みユーザー
2019/03/12 01:11
2019/03/12 03:07
退会済みユーザー
2019/03/14 06:53
2019/03/14 08:44