使用VBA实现网页文件上传：文件浏览器弹窗后的阻塞问题求助

我明白你现在卡在哪了：触发文件选择对话框后，VBA程序没法合理等待对话框关闭，循环一直卡着，用WScript的尝试也没搞定。下面给你几个不同场景下的可行方案，从省心到可靠逐一说明：

方案1：绕过文件浏览器，直接给Input标签赋值（优先推荐） #

如果网页没有严格的安全限制，这是最省事的方法——完全不用弹出对话框，直接把文件路径赋值给type="file"的input元素，从根源上避免阻塞问题。

示例代码：

' 假设你已获取IE对象（ie）
Dim fileInput As Object
' 定位文件上传的input标签（可根据实际网页结构调整选择器）
Set fileInput = ie.Document.querySelector("input[type='file']")

' 直接设置文件路径（注意：部分公开网页因安全策略会限制此操作，适合内部系统）
fileInput.Value = "C:\Your\Target\File\Path\example.csv"

' 触发上传操作，比如点击提交按钮
ie.Document.querySelector("button#submit-upload").Click ' 替换为实际的提交按钮选择器

优缺点：代码简洁无阻塞风险，但受浏览器安全策略限制，公开网页可能无法使用。

方案2：用Windows API等待文件浏览器关闭（最可靠） #

必须弹出文件浏览器的话，可以通过Windows API获取对话框窗口句柄，精准等待窗口关闭后再继续程序，稳定性拉满。

首先在模块顶部声明API函数（64位VBA保留PtrSafe，32位可去掉）：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As LongPtr, ByVal dwMilliseconds As Long) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPtr
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF

然后在触发对话框后加入等待逻辑：

' 触发文件浏览器
fileInput.Click

' 循环等待文件浏览器窗口出现（窗口标题根据系统语言调整，中文是"打开"，英文是"Open"）
Dim hWnd As LongPtr
Do
    hWnd = FindWindow("#32770", "打开") ' #32770是标准对话框的类名
    DoEvents ' 释放CPU资源，避免程序假死
Loop Until hWnd <> 0

' 获取对话框所属的进程ID和句柄
Dim processId As Long
GetWindowThreadProcessId hWnd, processId
Dim hProcess As LongPtr
hProcess = OpenProcess(SYNCHRONIZE, False, processId)

' 等待对话框进程结束（即用户关闭对话框）
WaitForSingleObject hProcess, INFINITE

' 现在可以继续执行后续步骤了
MsgBox "文件选择完成，程序继续运行"

优缺点：兼容性强，能精准控制等待逻辑，但需要处理API声明，不同语言系统要调整窗口标题。

方案3：用WScript.Shell结合SendKeys（应急方案） #

如果前两种方法都没法用，可以试试用WScript模拟键盘输入，不过这种方法依赖窗口焦点，稳定性较差，适合临时测试场景。

示例代码：

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")

' 触发文件浏览器
fileInput.Click

' 等待对话框激活（标题根据语言调整）
Do Until wsh.AppActivate("打开")
    DoEvents
Loop

' 输入文件路径并回车确认
wsh.SendKeys "C:\Your\File\Path\test.txt"
wsh.SendKeys "{ENTER}"

' 继续后续操作

优缺点：实现简单，但容易因为窗口焦点丢失失效，不推荐用于正式生产环境。

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