Selenium Basic VBA ダウンロード先が変更できない

最近の書き込み件数：今日 0件、昨日 0件
未読分：1件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2024年4月2日(火)14時05分
From: fujifuji

返事削除変更

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