簡易的なwebスクレイピングをSeleniumとVBAにて作成しており、OGP(Open Graph protocol)の情報を取得しようとしています。
目的はサイト内の情報取得です。
【うまくいかないこと】
メールアドレスや電話番号などの連絡先情報が取得できません。
'Email
.Pattern = "meta\s+?property.?og:email.?content=.?‘""[‘""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 4) = mc(0).SubMatches(0)
'電話番号
.Pattern = "meta\s+?property.?og:phone_number.?content=.?‘""[‘""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 5) = mc(0).SubMatches(0)
【できていること】
以下にて、タイトルや説明の取得は成功しています。
'タイトル
.Pattern = "meta\s+?property.?og:title.?content=.?‘""[‘""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 1) = mc(0).SubMatches(0)
'説明
.Pattern = "meta\s+?property.?og:description.?content=.?‘""[‘""]"
Set mc = .Execute(buf)
If mc.Count <> 0 Then url.Offset(0, 2) = mc(0).SubMatches(0)
どうぞよろしくお願いいたします。
あなたの回答
tips
プレビュー