VBA⾃动点击IE的浏览按钮、⾃动选择路径、⾃动关闭打开⽂
件对话框
VBA调⽤InternetExplorer操作IE浏览器，⾃动弹出⽂件选择对话框时，VBA会处于阻塞状态，你必须⼿⼯关闭⽂件选择对话框，VBA才能继续向后运⾏。
例如下⾯⽹址，就有⼀个⽂件浏览按钮：
我做了⼀个exe⽂件，可以在另⼀个进程中来处理⽂件对话框。
Sub Test()
Dim File As MSHTML.HTMLInputFileElement
Dim WSH As Object
Set File = ElementById("myfile")
Set WSH = CreateObject("WScript.Shell")
WSH.Run "E:\Office_VBA\ E:\Office_VBA\Translate.rar", vbHide, False
File.Click
End Sub
  上述代码，WSH.Run的参数中，包含两部分，空格左侧是处理⽂件对话框的exe⽂件路径（在本帖中可以下载并解压缩）
后⾯的 E:\Office_VBA\Translate.rar 是电脑中随便的⼀个⽂件路径，也就是要往⽂件选择对话框中上传的那个⽂件。
执⾏上述Test过程，VBA会⾃动打开⽂件浏览对话框，然后⾃动给对话框设置路径，并确定。
html自动弹出公告代码exe⽂件下载地址
下载后，解压缩到不含空格的路径下。请勿点击exe⽂件。
请打开Excel⽂件，然后点击⼯作表上的按钮进⾏测试。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。