すいません、前回質問した者です。
前回の質問では・・・
エクセルシートのB列にURLが並んでいるとして、VBAを使って、C列には「description」D列には「keywords」を抽出したいという質問をしたのですが、参考になる回答がなかったのでもう一度質問します。
以前、私が教えてもらったのは、B列にURLが並んでいて、A列にタイトルを抽出させたものでした。
それが以下になります。
Public Sub ReadTitle()
Dim url As Range
Dim Http, buf As String
Set Http = CreateObject("MSXML2.XMLHTTP")
Set url = Range("B1")
Do While (url.Value <> "")
Http.Open "GET", url.Value, False
Http.Send
buf = StrConv(Http.ResponseBody, vbUnicode)
'msgbox buf
url.Offset(0, -1).Value = getTitle(buf)
Set url = url.Offset(1, 0)
Loop
Set Http = Nothing
End Sub
Private Function getTitle(buf As String) As String
Dim pos1 As Long, pos2 As Long
pos1 = InStr(1, buf, "<title>")
If pos1 = 0 Then
pos1 = InStr(1, buf, "<TITLE>")
If pos1 = 0 Then
getTitle = ""
Exit Function
Else
pos2 = InStr(pos1 + 7, buf, "</TITLE>")
End If
Else
pos2 = InStr(pos1 + 7, buf, "</title>")
End If
getTitle = Mid(buf, pos1 + 7, pos2 - pos1 - 7)
End Function
このような感じでB列にはURLの一覧があるとして、A列にタイトル、C列にdescription D列にkeywordsが抽出できればいいなと考えています。
ちなみに、私にはVBAの知識がまったくありません。とりあず、これだけ出来れば、すごく助かるのですが、どなたか教えていただけないでしょうか?
よろしくお願いします!
No.2ベストアンサー
- 回答日時:
torasan117さん こんにちは。
HTMLの記述は自由(スペースや改行等々)なのと、文字コード(S-Jis,UTF8等々)の違いもあり
各サイトを確認しないと、きちんとしたデータを収集できないかも知れません。
一応サンプルを作成してみましたが、うまくいかない時は自分で修正して欲しいのですが
「VBAの知識がない」とのことで厳しいかも知れません。
今回はdescription、keywordsの取得がタイトル取得より面倒なので「正規表現」を使用しました。
正規表現のパターン(抽出条件?)を理解すれば修正も可能かと思います。
Public Sub ReadTitle()
Dim url As Range
Dim Http, buf As String
Dim re, mc
Set Http = CreateObject("MSXML2.XMLHTTP")
Set re = CreateObject("VBScript.RegExp")
Set url = Range("B1")
Do While (url.Value <> "")
Http.Open "GET", url.Value, False
Http.Send
buf = StrConv(Http.ResponseBody, vbUnicode)
buf = Replace(buf, vbCr, " ")
buf = Replace(buf, vbLf, " ")
With re
.IgnoreCase = True
.Global = True
.Pattern = "<title>(.*?)</title>"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, -1) = mc(0).SubMatches(0)
.Pattern = "meta\s+?name.*?description.*?content=.*?['""](.*?)['""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 1) = mc(0).SubMatches(0)
.Pattern = "meta\s+?name.*?keywords.*?content=.*?['""](.*?)['""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 2) = mc(0).SubMatches(0)
End With
Set url = url.Offset(1, 0)
Loop
Set Http = Nothing
Set re = Nothing
End Sub
No.1
- 回答日時:
列Cのdescription、列Dのkeywordが列Bにどのような記述をされているのか?
前質問の#1さんの回答のとおりですが、コードを列挙するよりも列Bを例示しないと難しいですよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
Excelで、あるセルの値に応じて...
-
【Excel VBA】 B列に特定の文字...
-
マクロについて。S列の途中から...
-
VBScriptでfindを使うには??
-
SetDlgItemTextの使い方について
-
☆エクセル マクロ 範囲の値を上...
-
エクセルVBA シートモジュール...
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
エクセルVBAで『A列』に新...
-
【Excel VBA】カンマと改行コー...
-
複数処理 Worksheet_Change(ByV...
-
VBAで、離れた複数の列に対して...
-
VBAのFind関数で結合セルを検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報