VBA：尝试自动将文件从excel上传到Internet Exploer时，无法使用“上传”框

Question

我遇到了一个问题，并且想知道是否有人可以提供帮助，我已经进行了搜索，但似乎无法找到任何成功完成此任务的人。

我正在尝试使用Excel中的vba将xls文件上传到网站上。我已经设法打开网站并进入你点击“浏览...”选择要上传的文件的阶段，但不断收到错误“没有设置块变量的对象变量”

我一直试图解决这个问题2天没有成功。有人能指出我正确的方向吗？

我正在使用的代码如下，因为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