質問編集履歴
3
※誤字のみ修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -19,7 +19,7 @@
|
|
19
19
|
Next
|
20
20
|
|
21
21
|
②item-phの src=に記載されたアドレスを抽出したいのですが、この部分だけが分かりません。
|
22
|
-
|
22
|
+
https://www.abcdef.jp~~~~~~~/336336-m.jpgの文字列を引用したいです。
|
23
23
|
|
24
24
|
●item-brandを参考として、作成したのが下記のコードです。
|
25
25
|
|
@@ -35,7 +35,7 @@
|
|
35
35
|
|
36
36
|
②【※追記】下記の様にCss+imgタグでの引用ですと、イメージが近いです。
|
37
37
|
ただし商品情報以外でhtmlの上の方にimgタグがあり、そちらの情報から引用がされています。
|
38
|
-
|
38
|
+
class="tile-image" に紐付くscr情報のみを抽出したいです。
|
39
39
|
|
40
40
|
Set image = driver.FindElementsByCss("img")
|
41
41
|
|
2
【※追記】class="tile-image" に紐付くscr情報のみを抽出したいです。
test
CHANGED
File without changes
|
test
CHANGED
@@ -35,6 +35,7 @@
|
|
35
35
|
|
36
36
|
②【※追記】下記の様にCss+imgタグでの引用ですと、イメージが近いです。
|
37
37
|
ただし商品情報以外でhtmlの上の方にimgタグがあり、そちらの情報から引用がされています。
|
38
|
+
(※class="tile-image" に紐付くscr情報のみを抽出したいです。)
|
38
39
|
|
39
40
|
Set image = driver.FindElementsByCss("img")
|
40
41
|
|
1
②【※追記】を記載しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -30,6 +30,16 @@
|
|
30
30
|
For j = 1 To brand.Count
|
31
31
|
|
32
32
|
Debug.Print image.Item(j).Text()
|
33
|
+
ws.Range("F" & j + 4).Value = image(j).Attribute("src")
|
34
|
+
Next
|
35
|
+
|
36
|
+
②【※追記】下記の様にCss+imgタグでの引用ですと、イメージが近いです。
|
37
|
+
ただし商品情報以外でhtmlの上の方にimgタグがあり、そちらの情報から引用がされています。
|
38
|
+
|
39
|
+
Set image = driver.FindElementsByCss("img")
|
40
|
+
|
41
|
+
For j = 1 To brand.Count
|
42
|
+
|
33
43
|
ws.Range("F" & j + 4).Value = image(j).Attribute("src")
|
34
44
|
Next
|
35
45
|
|
@@ -73,7 +83,7 @@
|
|
73
83
|
|
74
84
|
・下記のサイトを参考にし、### 前提②に記載したコードを作成しました。
|
75
85
|
|
76
|
-
|
86
|
+
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14234135644
|
77
87
|
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13234316793
|
78
88
|
|
79
89
|
https://vba-create.jp/vba-selenium-data-download/
|