对象 'IWebBrowser2' 的方法文档在专用公司服务器上失败

Question

我正在尝试使用 Excel 数据填写网络表单。当代码与其他网站（如 Facebook、Twitter 等）一起使用时，它给了我运行-次错误 2147467259。

我很确定这是因为我要填写的 Web 表单是基于专用的公司服务器。

这是我的代码的第一部分：

Sub Test1()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True
    IE.Navigate "http://pkgatepass.pg.com/gatepass/WHgatepass.aspx"
    
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
    
    IE.Document.getElementbyID("Body_tbxSealNo").Value = "AC102"
End Sub

Answer 1

你的信息有点少。基于：

I am pretty sure it's because the web form I am trying to fill data into is based on a dedicated company server.

像这样更改行：

Set IE = CreateObject("internetexplorer.application")

至此

Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

对象 'IWebBrowser2' 的方法文档在专用公司服务器上失败

Method Document of object 'IWebBrowser2' failed on a dedicated company server

excel

vba

webforms

runtime-error