Selenium Basic VBA でファイルダウンロード先が変更できない (ID:151432)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Selenium Basic VBAの初心者です。
chromeのプロファイルを指定したら
ファイルのダウンロード先が変更できないのですが
なにかいい方法はございますか？

Dim driver As New Selenium.WebDriver
Dim myBy As New By
Dim siteURL As String
Dim elm As Selenium.WebElement
Dim sKey As New Selenium.Keys

'プロファイルパスを指定
Dim str As String: str = "C:\Users\" & Environ("USERNAME") & "\AppData\Local\Google\Chrome\test"
driver.AddArgument ("--user-data-dir=" & str)
driver.AddArgument ("--profile-directory=Profile1")
driver.AddArgument "disable-gpu"
driver.AddArgument "start-maximized"

Dim DL_Path As String: DL_Path = "C:********************************************"

'ファイルのダウンロード先の変更
With driver
.SetPreference "download.default_directory", DL_Path 'ダウンロード先の指定
.SetPreference "download.directory_upgrade", True 'ダウロードフォルダアップデート
.SetPreference "download.prompt_for_download", False '自動ダウンロード
.SetPreference "plugins.always_open_pdf_externally", True
End With

'指定のURLに移動する
siteURL = "http://****************************"
Call driver.Start("chrome")
driver.Get siteURL

'ファイルのダウンロード
Set elm = driver.FindElementByXPath("/html/body/table/*************************************")
Call elm.Click

driver.Close
Set driver = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る