VBA操作Edge通过SetPreference修改下载目录及自定义文件名

核心配置项说明 #

Edge（Chromium内核）自动化场景下，可通过SetPreference方法对当前启动的Edge实例单独配置下载规则，不会修改浏览器本地全局设置，可用的下载相关配置键如下：

• download.default_directory：设置文件默认保存的绝对路径
• download.prompt_for_download：布尔值，设为False时会跳过下载位置确认弹窗，自动直接保存文件
• download.safebrowsing.enabled：布尔值，设为False时会关闭可信来源文件的安全拦截提示，避免下载卡住

注意：SetPreference无法直接在下载请求发起阶段修改文件名，文件名由服务端返回的Content-Disposition响应头或链接默认值决定，自定义文件名需要在文件落盘后通过VBA文件操作重命名实现。

完整实现代码 #

需提前在VBA编辑器中引用Selenium Type Library，或使用后期绑定方式创建EdgeDriver对象：

Sub EdgeAutoDownloadCustomSetting()
    Dim edgeDriver As New EdgeDriver
    Dim saveFolder As String
    ' 替换为你需要的自定义保存目录，必须为绝对路径，末尾加反斜杠
    saveFolder = "D:\业务文件自动下载存储\"
    
    ' 若目标目录不存在则自动创建
    If Dir(saveFolder, vbDirectory) = "" Then
        MkDir saveFolder
    End If
    
    ' 写入下载相关配置
    With edgeDriver
        .SetPreference "download.default_directory", saveFolder
        .SetPreference "download.prompt_for_download", False
        .SetPreference "download.safebrowsing.enabled", False
        
        ' 启动浏览器实例
        .Start "msedge"
        
        ' 此处替换为你已实现的页面跳转、目标链接查找与点击逻辑
        .Get "目标业务页面地址"
        .FindElementByXPath("你的目标链接XPath定位表达式").Click
        
        ' 等待下载完成，可根据文件大小调整等待时长，或增加文件存在性循环判断逻辑
        Application.Wait Now + TimeValue("00:00:06")
        
        ' 自定义文件名逻辑：定位目录内最新下载的文件，重命名为指定名称
        Dim currentFile As String, latestFile As String
        Dim latestModifyTime As Date, currentModifyTime As Date
        latestModifyTime = DateSerial(1900, 1, 1)
        currentFile = Dir(saveFolder & "*.*", vbNormal)
        
        Do While currentFile <> ""
            currentModifyTime = FileDateTime(saveFolder & currentFile)
            If currentModifyTime > latestModifyTime Then
                latestModifyTime = currentModifyTime
                latestFile = currentFile
            End If
            currentFile = Dir
        Loop
        
        ' 重命名文件，保留原文件后缀
        If latestFile <> "" Then
            Dim fileExt As String
            fileExt = Right(latestFile, Len(latestFile) - InStrRev(latestFile, ".") + 1)
            Name saveFolder & latestFile As saveFolder & "你需要的自定义文件名" & fileExt
        End If
        
        ' 操作完成后可按需关闭浏览器
        ' .Quit
    End With
End Sub

常见问题排查 #

• 配置不生效优先检查传入的保存路径是否为绝对路径，是否有当前Windows账号的读写权限，不要使用C盘根目录、Program Files等系统受保护路径
• 若点击链接后还是弹出保存窗口，检查是否有第三方下载工具接管了Edge的下载行为，需在对应下载工具中关闭浏览器关联
• 若文件被拦截无法下载，确认目标链接为可信来源后，可额外增加.SetPreference "download.extensions_to_open", "*"配置跳过扩展名校验

内容的提问来源于stack exchange，提问作者Felicio