下記のプログラムで、ChromeのWebDriverが自動更新するように改良しようと SafeOpen driver, chrome を追加したが
コンパイルエラー(変数が定義が定義されていません。)になる。
Option Explicit
Sub main2()
Dim driver As New Selenium.WebDriver
Call web_open(driver)
Call web_sousa(driver)
Call web_close(driver)
End Sub
''''''''''''''''''''''''''''
Sub web_open(ByRef driver As Selenium.WebDriver)
driver.Start "chrome"
'**********************************************
SafeOpen driver, chrome 'これを追加した。
'**********************************************
driver.Wait (3000)
driver.Get "https://www.yahoo.co.jp/"
End Sub
''''''''''''''''''''''''''''
Sub web_sousa(ByRef driver As Selenium.WebDriver)
driver.Wait (3000)
driver.GoBack
driver.Wait (3000)
driver.GoForward
driver.Wait (3000)
End Sub
''''''''''''''''''''''''''''
Sub web_close(ByRef driver As Selenium.WebDriver)
driver.Quit
Set driver = Nothing
End Sub
以上