VBAとSeleniumで要素を表示させたい

VBAとSeleniumでスクレイピングをしたいと思っています。
出力したい要素はディベロッパーツールで
<img src="https://img.***.co.jp/image70/icon_stock_no.gif" alt="×">
と表示されます。(***部分のみ念のため伏字といたしました）

出力は　https://img.***.co.jp/image70/icon_stock_no.gif　か　×　のどちらでも構いません。

要素の特定はセレクターで行っております。

elm2 = Driver.FindElementByByCss("#chiku-99 > table > tbody > tr:nth-child(20) > td:nth-child(1) > img").Attribute("src")

WS1.Cells(nRowIndex, 2) = elm2

上記のようにしてみたのですが、残念ながら何も表示（出力）されません。セレクターの部分は正しそうです。

初心者で質問の仕方も要領を得ていないと思うのですが、どのようにすればいいか、教えていただけませんでしょうか。よろしくお願いいたします。

t_obara

2021/02/24 03:18

FindElementByByCssは、タイポですか？FindElementByCssですよね？

yokai

2021/02/24 09:30

ご指摘いただいた件ですが、この質問を作成するときにできたタイポではなく、実際ByByCssとなってなっていました。On Error Resume Next　を入れていたので、エラーが出なかったものと思われます。 ByCssと訂正をしてOn Error Resume Nextをコメントアウトしたところ、ちょうど該当箇所にて以下のエラーが出ました実行時エラー'91': オブジェクト変数またはWithブロック変数が設定されていません。大変失礼いたしました。また遅くなり申し訳ございませんでした。

t_obara

2021/02/24 15:07

分かりにくいので、コードの部分を見やすくなるように質問を修正してください。

行動規範の内容に同意します

回答1件

こんな感じでは如何でしょうか？

VBA
1Sub test()
2
3   nRowIndex = 5
4   Set WS1 = ActiveSheet
5   
6   With WS1.Pictures.Insert("https://img.*.co.jp/image70/icon_stock_no.gif")
7        .Top = WS1.Cells(nRowIndex, 2).Top
8        .Left = WS1.Cells(nRowIndex, 2).Left
9   End With
10   
11End Sub
12