質問編集履歴
1
タイトルの修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
OGP
|
1
|
+
OGP(Open Graph protocol):連絡先情報のスクレイピングについて
|
test
CHANGED
@@ -1,4 +1,4 @@
|
|
1
|
-
簡易的なwebスクレイピングをSeleniumとVBAにて作成しており、OGPの情報を取得しようとしています。
|
1
|
+
簡易的なwebスクレイピングをSeleniumとVBAにて作成しており、OGP(Open Graph protocol)の情報を取得しようとしています。
|
2
2
|
|
3
3
|
目的はサイト内の情報取得です。
|
4
4
|
|
@@ -28,7 +28,7 @@
|
|
28
28
|
|
29
29
|
【できていること】
|
30
30
|
|
31
|
-
以下にて、タイトルや説明
|
31
|
+
以下にて、タイトルや説明の取得は成功しています。
|
32
32
|
|
33
33
|
'タイトル
|
34
34
|
|
@@ -46,14 +46,6 @@
|
|
46
46
|
|
47
47
|
If mc.Count <> 0 Then url.Offset(0, 2) = mc(0).SubMatches(0)
|
48
48
|
|
49
|
-
'URL
|
50
|
-
|
51
|
-
.Pattern = "meta\s+?property.*?og:url.*?content=.*?[‘""](.*?)[‘""]"
|
52
|
-
|
53
|
-
Set mc = .Execute(buf)
|
54
|
-
|
55
|
-
If mc.Count <> 0 Then url.Offset(0, 3) = mc(0).SubMatches(0)
|
56
|
-
|
57
49
|
|
58
50
|
|
59
51
|
|