使用VBA实现浏览器文件上传遇到路径输入问题求助

嘿，我碰到过好多次这个问题了！你卡壳的点其实很典型——点击Browse按钮后弹出的文件选择框是系统级对话框，根本不属于网页DOM的一部分，所以你用常规的网页元素操作方法肯定碰不到它。下面给你两个实用的解决方案，从简单到靠谱：

方案一：直接给File Input元素赋值（优先尝试） #

很多时候完全没必要点Browse按钮，直接找到对应的<input type="file">元素，给它的Value属性塞文件路径就行——前提是网站没做额外限制（比如禁止修改input的value）。

代码示例：

Sub UploadFileDirectly()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开目标网页
    ie.Visible = True
    ie.Navigate "http://www.htmlquick.com/reference/tags/input-file.html"
    
    ' 等页面加载完再操作
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 定位第一个file类型的input元素（就是你说的第一个Upload选择框）
    Dim fileInput As Object
    Set fileInput = ie.Document.getElementsByTagName("input")(0)
    
    ' 直接赋值绝对文件路径
    fileInput.Value = "C:\Your\Actual\File\Path\example.txt"
    
    ' 如果需要提交表单，找到提交按钮点一下就行
    ' ie.Document.getElementsByTagName("input")(1).Click
End Sub

要是运行时弹出“拒绝访问”，说明网站做了限制不让直接改input的value，那咱就换方案二。

方案二：用SendKeys模拟键盘操作系统对话框 #

如果方案一走不通，就只能模拟键盘输入来操作弹出的文件选择框了。这里的关键是等对话框弹出来并激活后再发按键。

代码示例：

Sub UploadFileWithSendKeys()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页+等待加载
    ie.Visible = True
    ie.Navigate "http://www.htmlquick.com/reference/tags/input-file.html"
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 点击第一个file input（直接点它就会弹出选择框）
    Dim fileInput As Object
    Set fileInput = ie.Document.getElementsByTagName("input")(0)
    fileInput.Click
    
    ' 等对话框弹出来（时长自己根据电脑速度调，别太短）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 发送文件路径+回车确认
    SendKeys "C:\Your\Actual\File\Path\example.txt", True
    SendKeys "{ENTER}", True
End Sub

注意事项：

• 运行这段代码的时候别瞎点鼠标键盘，不然SendKeys会把输入发到当前激活的窗口，不是文件选择框。
• 要是等待时间不够，就把Application.Wait的时长改长点，比如改成00:00:03。
• SendKeys有时候会有点不稳定，如果要更靠谱的话，可以用Windows API来精准找到并激活文件选择框窗口，不过代码会复杂一些，要是这个方案能满足需求就先用它。

为啥之前没法输入路径？ #

再给你捋清楚：文件选择框是Windows系统自带的窗口，不属于IE浏览器的网页DOM元素集合，VBA里操作网页的那些方法（比如getElementsByTagName）只能管网页里的东西，碰不到系统级的窗口。所以要么绕开对话框直接给input赋值，要么用模拟键盘/API的方式搞系统窗口。

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