Selenium「表示中のWebページのタイトル/URLを取得」【ExcelVBA】

Chrome/Edgeの現在のページのタイトル取得/URL取得

Excel VBAマクロでSeleniumBasicを使用して、自動操作する際、
タイトルやURLを取得したいケースがあります。

• データスクレイピングして、エクセル保存したい場合
• 今後のウォッチ先を、エクセル保存したい場合
• ウェブクエリで取得したデータの参照元を、保存しておきたい場合

既にメソッドが準備されていますので、そのまま使用する事で簡単に取得可能です。

Chrome/Edgeでページのタイトル/URL取得サンプルコード

'■SeleniumBasic経由で表示中のページのタイトル、URLを取得
Dim driver As New Selenium.WebDriver
Public Sub sample()
     
    Dim sURL As String: sURL = "https://vba-create.jp/"
     
    '■Chromeで起動
    driver.Start "chrome"   'Edgeの場合は    driver.Start "edge"
    driver.Get sURL
    
    '■現在表示ししてるページタイトルを表示
    Debug.Print driver.Window.Title
    
    '■現在表示ししてるページURLを表示
    Debug.Print driver.Url
End Sub

注意点

• 特にありません。