VBA IE自动化：实现下载文件时自动选择打开/另存为

我最近在搞一个需求：从公司内部网站打开文件时，自动触发「打开」或「另存为」的操作，不用每次手动去点系统弹出的对话框。目前我用的是这段VBA脚本：

Public Sub OpenURL()
    Dim myURL As Long
    myURL = ShellExecute(0, "Open", "https://bankofamerica.xxxx.com/sso/bankofamerica/respInv.do?xxx")
    Call Download
End Sub

执行这段代码的第一部分后，屏幕底部会弹出闪烁的文件对话框（就是那种系统默认的「文件下载」对话框，提示选择打开还是另存为的那种），但调用Download子过程的时候，没法自动完成对话框的操作，还是得手动点按钮，完全达不到自动化的效果。

后来查了不少资料才明白问题所在：ShellExecute只是帮你启动了打开URL的动作，但系统弹出的对话框属于独立的外部窗口，VBA本身没法直接控制它，得借助Windows API来查找窗口并模拟点击操作。下面是我整理的可行方案：

步骤1：添加Windows API声明 #

首先在VBA模块的顶部添加这些API声明（适配64位Excel，用PtrSafe保证兼容性）：

' 查找顶层窗口
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
' 查找子窗口（比如对话框里的按钮）
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
' 向窗口发送消息（模拟按钮点击）
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
' 让程序暂停，等待对话框加载
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

步骤2：重写Download子过程 #

把原来的Download子过程改成这样，让它自动等待对话框出现，然后找到对应按钮并模拟点击：

Public Sub Download()
    Dim dialogHWnd As LongPtr
    Dim targetBtnHWnd As LongPtr
    Const BM_CLICK = &HF5 ' 模拟按钮点击的消息常量
    Const MAX_WAIT_TIME = 10000 ' 最多等待10秒
    Const CHECK_INTERVAL = 500 ' 每隔500毫秒检查一次对话框
    
    ' 循环等待对话框出现
    Dim elapsedTime As Integer
    elapsedTime = 0
    Do
        ' 替换成你实际的对话框标题，中文系统一般是「文件下载」，英文是「File Download」
        dialogHWnd = FindWindow("#32770", "文件下载")
        Sleep CHECK_INTERVAL
        elapsedTime = elapsedTime + CHECK_INTERVAL
    Loop Until dialogHWnd <> 0 Or elapsedTime >= MAX_WAIT_TIME
    
    If dialogHWnd <> 0 Then
        ' 先尝试找「打开」按钮，按钮文本根据系统语言调整
        targetBtnHWnd = FindWindowEx(dialogHWnd, 0, "Button", "&打开")
        ' 如果找不到「打开」，就找「另存为」按钮
        If targetBtnHWnd = 0 Then
            targetBtnHWnd = FindWindowEx(dialogHWnd, 0, "Button", "&另存为")
        End If
        
        ' 如果找到了目标按钮，模拟点击
        If targetBtnHWnd <> 0 Then
            SendMessage targetBtnHWnd, BM_CLICK, 0, 0
        Else
            MsgBox "没找到对应的按钮，请检查对话框标题和按钮文本是否匹配！"
        End If
    Else
        MsgBox "等待对话框超时，或者对话框没有出现！"
    End If
End Sub

注意事项 #

• 对话框的标题和按钮文本一定要和实际弹出的窗口一致，比如英文系统里对话框标题是「File Download」，按钮文本是「&Open」和「&Save As」，要对应修改代码里的字符串
• 如果你用的是32位Excel，可以把PtrSafe去掉，把LongPtr改成Long，保证兼容性
• 有些公司内部网站的文件下载可能有特殊验证或自定义弹窗，这种情况可能需要额外处理，但大部分系统默认的下载对话框都能用这个方法解决

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