VBA：在尝试自动从Excel中将file upload到Internet Exploer时遇到了上传框的问题

我有一个问题的麻烦，并想知道如果有人可以帮助，我已经search，但似乎找不到任何人已经成功完成这项任务。

我试图从Excel中使用vba上传一个xls文件到一个网站上。 我已经设法打开网站，并到达您点击“浏览…”select要上传的文件的阶段，但不断收到错误“块variables的对象variables未设置”

我一直在试图找出这两天没有成功。 任何人都可以指向正确的方向吗？

我使用的代码如下所示，因为html元素是有帮助的。

提前谢谢了

克莱尔

'input type =“file”name =“fileUpload”id =“fileUpload”style =“height：20px; width：450px;”

Sub Upload() Dim IE As InternetExplorer Application.DisplayAlerts = False Set IE = New InternetExplorerMedium IE.Visible = 1 With IE .Navigate url Do While (IE.Busy Or IE.READYSTATE <> READYSTATE.READYSTATE_COMPLETE) DoEvents Loop ' Selects Create Report .Document.getElementById("ctl00_body_upload").Click .Document.getElementById("FileUpload").Click ' <<<This is where it fails Application.DisplayAlerts = True End With Set IE = Nothing End Sub