Edge/Chromeで名前指定してタブ移動する【SwitchToWindowByTitle】【Selenium】【ExcelVBA】

VBAでEdge/Chromeを起動し、タブを移動したい場合があります。
以下で前後のタブに移動可能です。

SwitchToPreviousWindowで一つ前のタブ
SwitchToNextWindowで一つ後のタブ
SwitchToWindowByTitleで任意のタブ(今回はこちらの記事)

Edge/Chromeで名前指定してタブ移動するサンプルコード
注意点
関連記事
SeleniumBasicについて

Edge/Chromeで名前指定してタブ移動するサンプルコード

Dim driver As New Selenium.WebDriver

'■Edge/Chromeで指定したタイトルのタブに移動する
Public Sub sample()
    '■ブラウザを起動
    driver.Start "chrome" 'Edgeの場合はdriver.start "edge"
    driver.Get "https://vba-create.jp/"
   
    '■新しいタブを開く(弊社サイト/Yahoo/Googleのタブが立ち上がる)
    driver.ExecuteScript ("window.open('https://www.yahoo.co.jp/')")
    driver.ExecuteScript ("window.open('https://www.google.co.jp/')")
    
    '■現在Seleniumで有効なURLがSwitchToWindowByTitleで移動するのがわかる。
    Debug.Print driver.Url  'https://vba-create.jp/
    driver.SwitchToWindowByTitle ("Yahoo! JAPAN")
    Debug.Print driver.Url  'https://www.yahoo.co.jp/
    
    '■タブが存在しないと実行時エラー発生。(完全一致でないとエラーが発生する)
    driver.SwitchToWindowByTitle ("Yahoo")
    '実行時エラー23
    'NoSuchWindowError
    'Window not found Yahoo
    
End Sub