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が見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセルで整数のみ選択...
-
AdvancedFilterを使って値のみ...
-
エクセルで一次線形補間する方法
-
エクセルで、条件をつけて人数...
-
5円単位の切り上げ関数
-
他のブックで管理する価格表を...
-
パソコンで売上集計!!
-
パソコンでダウンロードしたmp4...
-
半角の引用符 “ ” の打ち方
-
名前(平仮名)を数字に変換する...
-
キーボードで英数字の半角と全...
-
「“」と「”」について
-
キーボードの感度が良すぎて困...
-
エクセルでセル内の0とOを区別...
-
パソコンで、「ヴ」を入力したいの...
-
enterキー押さずにテンキーで半角数...
-
Yを逆さにした「スターデルタ結...
-
Excelでシート全体が灰色になり...
-
半角で漢字を??
-
ミ の反対見たいな記号の名前は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセル 表の人数を計算したい...
-
エクセルの一覧からカードを作...
-
とびとびの大量セルを選択した...
-
AdvancedFilterを使って値のみ...
-
エクセルで参加者一覧表から参...
-
エクセルで複数行に渡ったセル...
-
5円単位の切り上げ関数
-
excel VBA コピーした行を、指...
-
エクセルで一次線形補間する方法
-
エクセルの範囲指定について
-
エクセルVBAで値だけをコピーペ...
-
エクセルで1行ごとの数値の並...
-
エクセル集計ひと月を4週に分...
-
エクセルのマクロで上のセルの...
-
エクセルで条件付き書式での複...
-
他のブックで管理する価格表を...
-
A列に日付、B列にその日の売り...
-
パソコンで売上集計!!
おすすめ情報