Selenium(Edge/Chrome)

Edge/Chromeで次のタブに移動する【SwitchToNextWindow】【Selenium】【ExcelVBA】

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

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/"
   
    '■新しいタブを開く
    driver.ExecuteScript ("window.open('https://www.yahoo.co.jp/')")
    
    '■現在Seleniumで有効なURLがSwitchToNextWindowで移動するのがわかる。
    Debug.Print driver.Url  'https://vba-create.jp/
    driver.SwitchToNextWindow
    Debug.Print driver.Url  'https://www.yahoo.co.jp/
    
    '■タブが存在しないと実行時エラー発生。
    driver.SwitchToNextWindow
    '実行時エラー23
    'NoSuchWindowError
    'Window not found
    
End Sub

関連記事

SeleniumBasicについて

Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。

但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。

コメント

タイトルとURLをコピーしました