起動されたChromeのオブジェクトを取得できない【VBA】

Question

ExcelVBAでChromeを操作しています。
VBAより、あるWebページのボタンをクリックすると、自動で新しいタブが追加されます。
クリックボタンのある元のページのタブもそのまま残っています。

この新しいタブのIEオブジェクトを取得したいのですが、できません。
コードの一部を以下に載せます。

Declare Sub mouse_event Lib "user32" ( _
ByVal dwFlags As Long, _
Optional ByVal dx As Long, _
Optional ByVal dy As Long, _
Optional ByVal dwDate As Long, _
Optional ByVal dwExtraInfo As Long)

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Const MOUSE_LEFTDOWN = &H2 '10進数の2
Const MOUSE_LEFTUP = &H4 '10進数の4

Const MOUSE_RIGHTDOWN = &H8 '10進数の8
Const MOUSE_RIGHTUP = &H10 '10進数の16


'待機

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)


Sub hurimawatch_auto_tool()

Dim time As Long

'URLを開く
    
    Dim driver As New Selenium.WebDriver
    driver.Start "chrome"
    driver.Get "https://www.furimawatch.net/tool/#!/login"
    driver.FindElementByCss("body > div.container > div > button:nth-child(1)").Click
    
    
    time = 2000
    
    Sleep time
    
    driver.FindElementByCss("#identifierId").SendKeys "メールアドレス"
    driver.FindElementByCss("#identifierNext > div > button > div.VfPpkd-RLmnJb").Click
    

具体的には、こちらのサイト「https://www.furimawatch.net/tool/#!/login」 のメニュー「googleでログイン」にて新しいウィンドウが開くので、メールアドレス欄に入力後、「次へ」のボタンをクリックする操作を行おうとしているのですが、メールアドレス欄のCSSを指定しても、「セレクタが存在しない」というエラーが出てしまいます。

    driver.FindElementByCss("#identifierId").SendKeys "メールアドレス"
    driver.FindElementByCss("#identifierNext > div > button > div.VfPpkd-RLmnJb").Click

ネットで調べても情報が見つからず、行き詰まっています。
原因・対応策などを教えていただけますでしょうか。

Answer 1

これでどうでしょうか？

Dim driver As New Selenium.WebDriver
driver.Start "chrome"
driver.Get "https://www.furimawatch.net/tool/#!/login"
driver.FindElementByCss("body > div.container > div > button:nth-child(1)").Click


driver.SwitchToNextWindow
      
Debug.Print driver.Url

' 前のWindowに戻る
'driver.SwitchToPreviousWindow

Debug.Print driver.Url

Comments

[m-nm0n]

ありがとうございます！
解決しました！