[[20240329200604]]　『Selenium Basic VBAでファイルダウンロードに失敗』（fujifuji）　ページの最後に飛ぶ

『Selenium Basic VBAでファイルダウンロードに失敗』（fujifuji）

すみません。
Selenium Basicの初心者です。

下記のコードでファイルのダウンロードをしたのですが
『安全でないダウンロードがブロックされました』と表示され失敗します。

解決策があればご教示していただきたいです。

Dim driver As New Selenium.WebDriver
Dim Keys As New Selenium.Keys

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

driver.AddArgument "disable-gpu"
driver.AddArgument "start-maximized"

siteURL = "http://＊＊＊＊＊＊＊＊＊＊＊＊＊"

Call driver.Start("chrome")
driver.Get siteURL

Set table = driver.FindElementByXPath("/html/body/table/tbody/tr[2]/td/div/table/tbody/tr[3]/td/div/table/tbody/tr[3]/td/div/table")

Dim tdcount As Integer
For Each tr In table.FindElementsByTag("tr")

tdcount = 0
For Each td In tr.FindElementsByTag("td")
tdcount = tdcount + 1

'テーブルの8列目のリンクをクリック
If tdcount = 8 Then
For Each a In td.FindElementsByTag("a")

'ファイルをダウンロード
↓↓↓↓↓↓↓↓↓↓↓↓
a.Click　　

End If

driver.Close
Set driver = Nothing

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

 直接の回答ではありません。
 参考までにお聞きするのですが、同じものをchromeで手作業でダウンロードしたとき、
 なにかメッセージは出ませんか？素直にダウンロードできるんでしょうか。

 私だけの現象かもしれないのですが、最近、保存が途中でサスペンドすることが結構あり、
 いぶかしく思っているところです。セキュリティー関係が強化されたのでしょうか。
（xyz） 2024/03/30(土) 10:35:14

手動でくchromeを起動してDLすると保存できます。
VBAでchromeを起動してDLすると失敗します。
右上に下記のメッセージが出ます。
『安全でないダウンロードがブロックされました』

（fujifuji） 2024/03/31(日) 13:09:56

直前までVBAで実行して
クリックは手作業だとどうですか。
（asd） 2024/03/31(日) 13:41:22

ブロックされます。
（fujifuji） 2024/03/31(日) 13:46:30

pythonでも同じになりそうな気がするので
excelは関係ないかも
（asd） 2024/04/01(月) 08:09:18

chromeの問題ですね。
手動で成功したプロファイルを指定して
実行してみます。
（fujifuji） 2024/04/01(月) 09:22:19

コメント返信：

[ 一覧(最新更新順) ]

[[20240329200604]] 『Selenium Basic VBAでファイルダウンロードに失敗』（fujifuji） ページの最後に飛ぶ

[[20240329200604]]　『Selenium Basic VBAでファイルダウンロードに失敗』（fujifuji）　ページの最後に飛ぶ