我目前正在做文件上传的自动化
下面是输入文件标签的 HTML 标签：
<input name="file" title="Type the path of the file or click the Browse button to find the file." id="file" type="file" size="20">
下面是按钮 HTML 标签：
<input name="Attach" title="Attach File (New Window)" class="btn" id="Attach" onclick="javascript:setLastMousePosition(event); window.openPopup('/widg/uploadwaiting.jsp', 'uploadWaiting', 400, 130, 'width=400,height=130,resizable=no,toolbar=no,status=no,scrollbars=no,menubar=no,directories=no,location=no,dependant=no', true);" type="submit" value="Attach File">
我的VBA编码是：
Dim filee As Object
Set filee = mydoc.getElementById("file")
filee.Value = filenamepath
Set attach = mydoc.getElementsByName("Attach")
attach(0).Click
当我运行此编码时，输入文件路径框未分配路径名，因此我选择了文件路径。
Find attach screenshot.
最后我尝试了下面的代码，但是发送键没有执行
Dim filee As Object
Set filee = mydoc.getElementById("file")
filee.Click
obj.SetText filename
obj.PutInClipboard
SendKeys "^v"
SendKeys "{ENTER}"
Set attach = mydoc.getElementsByName("Attach")
attach(0).Click
Set finall = mydoc.getElementsByName("cancel")
finall(0).Click
请告诉我 Windows API 程序来分配我的文件名目录好名字：输入框打开选择要打开的文件资源管理器并单击open按钮。
我通过运行外部 VBScript 包含文件路径以在发送 Enter 键关闭此弹出窗口后使用 SendKeys 方法将其设置在“选择要上传的文件”弹出窗口上来解决此问题，并且此运行成功，因为外部 VBScript 在另一个进程上运行，因此它不会卡在 VBA 代码上。
笔记： 1-我从 VBA 代码动态创建外部 VBScript 并将其保存在 Temp 文件夹中，然后使用 WScript.Shell.Run 运行此脚本以在另一个线程上执行它 1- 在外部 VBScript 开始时，我设置了 1 秒延迟，以确保“选择要上传的文件”弹出窗口已从 VBA 打开。
这是完整的代码：
....
....
Set filee = mydoc.getElementById("file")
CompleteUploadThread MyFilePath
filee.Foucs
filee.Click
....
....
Private Sub CompleteUploadThread(ByVal fName As String)
Dim strScript As String, sFileName As String, wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
'---Create VBscript String---
strScript = "WScript.Sleep 1000" & vbCrLf & _
"Dim wsh" & vbCrLf & _
"Set wsh = CreateObject(""WScript.Shell"")" & vbCrLf & _
"wsh.SendKeys """ & fName & """" & vbCrLf & _
"wsh.SendKeys ""{ENTER}""" & vbCrLf & _
"Set wsh = Nothing"
'---Save the VBscript String to file---
sFileName = wsh.ExpandEnvironmentStrings("%Temp%") & "\zz_automation.vbs"
Open sFileName For Output As #1
Print #1, strScript
Close #1
'---Execute the VBscript file asynchronously---
wsh.Run """" & sFileName & """"
Set wsh = Nothing
End Sub