WEBページに調査する文字（Sheet1 B列に記入済の）がそれぞれ何件あるかをチェックしたいです。

WEBページは複数有り日々チェックするURLの個数とURLは変動するため、Sheet1のA列にコピーしようと思います。

WEBページをテキストファイルに出力するところまではWEB検索して構築できましたが、
B列の調査する文字がテキストファイルに何件あるか？が、分からず、EXCEL2013のVBAで作成する方法をご教示願います。
一番ベストなのは、テキストファイル出力することなく、直接、A列に指定したURLよりB列の文字が何回ヒットしたか分かればと思います。

やりたいイメージは下記となります。

１．1)○月○日、3つのURLをチェック（調査対象のURLと件数は変動）

　A列　　　　　　　　　　　　　　　　　　　　　　B列
1 http://www.yahoo.co.jp/○○○1　　　　　　　　 会社 　　　　　　　　　
2 http://www.msn.com/ja-jp/△△△1　　　　　　　新聞
3 https://www.google.co.jp/?gws_rd=ssl/□□□1　2015年
4　　　　　　　　　　　　　　　　　　　　　　　 乗物
5　　　　　　　　　　　　　　　　　　　　　　　 今後
※B列の実調査件数は、現在約30ですが増える場合はB列に追加していきます

2)WEBページA列1ｼｰﾄ（http://www.yahoo.co.jp/○○○1）
　の調査結果イメージ（シートは新規作成）
　A列　　B列
1 会社　　5件
2 新聞　　3件
3 2015年 10件
4 乗物　　0件
5 今後　　1件

3)WEBページA列2ｼｰﾄ（http://www.msn.com/ja-jp/△△△1）
　の調査結果イメージ（シートは新規作成）
　A列　　B列
1 会社　　3件
2 新聞　　7件
3 2015年 14件
4 乗物　　2件
5 今後　　3件

4)WEBページA列3ｼｰﾄ（hhttps://www.google.co.jp/?gws_rd=ssl/□□□1）
　の査結果イメージ（シートは新規作成）
　A列　　B列
1 会社　　6件
2 新聞　　4件
3 2015年 9件
4 乗物　　0件
5 今後　　0件

２．1)○月×日、2つのURLをチェック（調査対象のURLと件数は変動）

　A列　　　　　　　　　　　　　　　　　　　　　　B列
1 http://www.yahoo.co.jp/○○○2　　　　　　　　 会社 　　　　　　　　　
2 http://www.msn.com/ja-jp/△△△2　　　　　　　新聞
3　　　　　　　　　　　　　　　　　　　　　　　 2015年
4　　　　　　　　　　　　　　　　　　　　　　 　 乗物
5　　　　　　　　　　　　　　　　　　　　　 　　 今後

2)WEBページA列1ｼｰﾄ（http://www.yahoo.co.jp/○○○2）
　の調査結果イメージ（シートは新規作成）
　A列　　B列
1 会社　　3件
2 新聞　　2件
3 2015年 8件
4 乗物　　1件
5 今後　　0件

3)WEBページA列2ｼｰﾄ（http://www.msn.com/ja-jp/△△△2）
　の調査結果イメージ（シートは新規作成）
　A列　　B列
1 会社　　2件
2 新聞　　6件
3 2015年 9件
4 乗物　　0件
5 今後　　1件

●●●参考までに、WEBページをテキストファイルに出力は以下となります●●●
Sub test()
Sheet1のA列にURLを入力してから実行
Sheets("Sheet1").Select
Dim xmlHttp As Object
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
Dim r As Integer
r = 1
Do While Range("A" & r).Value <> ""
Dim url As String
url = Range("A" & r).Value
xmlHttp.Open "GET", url, False
xmlHttp.send
Dim html As String
html = xmlHttp.responseText
Dim intFF As Integer
intFF = FreeFile
Dim file As String
file = "テキストファイルの保存先" & r & ".txt"
Open file For Output As #intFF
Print #intFF, html
Close #intFF
r = r + 1
Loop
Set xmlHttp = Nothing
MsgBox "指定したURLの" & vbCrLf & "テキスト出力が完了しました。"
End Sub

No.1 回答者： carkurui2020 回答日時： 2015/06/23 09:26

回答がつかないようなので・・・。

カテゴリーを変えて、質問したらどうでしょう。

この回答へのお礼

適切なアドバイス、ありがとうございます。
質問内容も若干変わりましたので、カテゴリを変えて質問してみます。

お礼日時：2015/06/23 15:35