回答編集履歴
1
コードミス修正
test
CHANGED
@@ -32,7 +32,7 @@
|
|
32
32
|
End If
|
33
33
|
If price(j).FindElementsByClass("priceB").count <> 0 Then
|
34
34
|
'Class="priceB"が存在するとき
|
35
|
-
'MsgBox price(j).FindElementByClass("price").Attribute("outerHTML")
|
35
|
+
'MsgBox price(j).FindElementByClass("priceB").Attribute("outerHTML")
|
36
36
|
ws.range("E" & j + 5).Value = price(j).FindElementByClass("priceB").text
|
37
37
|
End If
|
38
38
|
|