VBAとSeleniumでChrome操作をした場合のマウスオーバー処理について

VBAとSeleniumでChrome操作にてスクレイピングをしています。
一部のHPで、マウスオーバーをしないとボタンが表示されない構成になっています。

色々調べましたが、VBAとSeleniumでChrome操作をした場合のマウスオーバー処理がうまくいきません。

手動でマウスオーバーをし、ボタンを表示した状態にすると、以降の処理は動きます。

↓以降の処理サンプル
Sheets("List").Cells(2, 1).Value = ObjDriver.FindElementbyxpath("//*[@id='overlap_table']/div[1]xxxxxx").Attribute("href")

VBAとSeleniumでChrome操作をした場合のマウスオーバー処理（非表示のボタンにカーソルを合わせた状）にするにはどのように記載すれば良いでしょうか？

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

回答2件

VBA
1Sub test2()
2
3    Dim Driver As New Selenium.WebDriver
4
5    Driver.Start "chrome"
6    Driver.Get "http://tokyo-ame.jwa.or.jp/"
7
8    Set elem = Driver.FindElementByXPath("//*[@id='area_button']/ul/li[8]/a/img")
9    Driver.Mouse.MoveTo (elem)
10    '  または
11    'Driver.Actions.MoveToElement(elem).Perform
12   
13    ' 八王子市の例
14    Driver.FindElementByXPath("//*[@id='tama_south']/ul/li[1]/a").Click
15    
16    
17    Stop
18
19End Sub
20

投稿2020/05/16 16:16

Reach

総合スコア733

ベストアンサー

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

VBA
1Sub test()
2    
3    Dim Driver As New Selenium.WebDriver
4    
5    Driver.Start "chrome"
6    Driver.Get "http://tokyo-ame.jwa.or.jp/"
7
8    Set elem = Driver.FindElementByXPath("//*[@id='area_button']/ul/li[8]/a/img")
9    Driver.Mouse.MoveTo (elem)
10    '  または
11    'Driver.Actions.MoveToElement(elem).Perform
12    Stop
13
14End Sub
15