Edge/Chromeでアラートの有無を確認する【Selenium】【ExcelVBA】

Edge/Chromeでサイト上のアラートを処理したい場合があります。
また、アラートの有無によって動作を変えたい場合もあります。

上記の場合、現在アラート表示がされているかどうか確認します。

Edge/Chromeでサイトのアラート有無を確認するサンプルコード

Public driver As New Selenium.WebDriver
’■サイト上にアラートが表示されているかどうか確認する
Public Sub sample()

    '■ブラウザ起動(下記サイトはアラートはありません)
    driver.Start "chrome"
    driver.Get "https://vba-create.jp"
    
    
    '■アラートの有無をdに格納
    Dim d As Alert
    Set d = driver.SwitchToAlert(Raise:=False)
    
    If d Is Nothing Then
        MsgBox "アラートなし"
    Else
        MsgBox "アラートあり"
    End If
End Sub

注意点

• 特にありません。

関連記事

• Edge/Chromeでアラート表示を制御する【SwitchToAlert】
• VBAでEdge/Chrome操作する為の必須条件「参照設定」する【Selenium】

SeleniumBasicについて

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

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