『ボヘミアン・ラプソディ』はなぜ人々を魅了したのか >>

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

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

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

1.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件

2.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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

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


カテゴリーを変えて、質問したらどうでしょう。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング