VBA Selenium在Edge中用SendKeys保存PDF链接失败求助

SendKeys模拟Ctrl+S失效的核心原因是Edge内置PDF查看器的焦点问题，或是浏览器安全机制拦截了模拟按键。更可靠的方案是直接配置Edge的下载偏好，让PDF自动下载到指定文件夹，无需手动触发「另存为」窗口。

方案一：配置Edge下载偏好（推荐） #

通过EdgeOptions设置下载路径，强制PDF直接下载而非在线查看，全程无需模拟按键：

Sub AutoDownloadPDF()
    Dim edgeDriver As New EdgeDriver
    Dim edgeOpts As New EdgeOptions
    Dim saveFolder As String
    
    ' 替换为你的目标保存文件夹
    saveFolder = "D:\PDF_Downloads"
    
    ' 配置Edge参数，禁用插件/扩展，设置下载偏好
    edgeOpts.AddArgument "--disable-extensions"
    edgeOpts.AddArgument "--disable-plugins"
    edgeOpts.AddUserPreference "download.default_directory", saveFolder
    edgeOpts.AddUserPreference "download.prompt_for_download", False ' 不弹出下载确认框
    edgeOpts.AddUserPreference "plugins.always_open_pdf_externally", True ' 直接下载PDF，不在线打开
    
    ' 启动带配置的Edge浏览器
    edgeDriver.Start "edge", edgeOpts
    
    ' 导航到包含PDF链接的目标页面
    edgeDriver.Get "https://your-target-page.com"
    
    ' 定位并点击PDF链接（根据实际页面元素调整定位方式，比如ByID、ByLinkText等）
    edgeDriver.FindElementByXPath("//a[contains(@href, '.pdf')]").Click
    
    ' 等待下载完成（根据文件大小调整等待时长）
    Application.Wait Now + TimeValue("00:00:08")
    
    ' 关闭浏览器
    edgeDriver.Quit
End Sub

方案二：修复SendKeys的焦点问题（不推荐，稳定性差） #

如果必须使用SendKeys，需要确保Edge窗口（尤其是PDF查看器）获得焦点后再发送按键：

Sub UseSendKeysToSavePDF()
    Dim edgeDriver As New EdgeDriver
    
    edgeDriver.Start "edge"
    edgeDriver.Get "https://your-pdf-url.com/document.pdf"
    
    ' 等待PDF加载完成
    Application.Wait Now + TimeValue("00:00:03")
    
    ' 激活Edge窗口（注意窗口标题可能因系统语言/页面不同变化，需调整）
    AppActivate "Microsoft Edge"
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 发送Ctrl+S触发另存为
    SendKeys "^s", True
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 发送Enter确认保存
    SendKeys "{ENTER}", True
    
    ' 等待保存完成后关闭浏览器
    Application.Wait Now + TimeValue("00:00:05")
    edgeDriver.Quit
End Sub

注意：方案二的稳定性极低，一旦Edge窗口标题变化、焦点被其他程序抢占就会失效，优先推荐方案一。

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