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

Question

我正在尝试用Excel数据填充web表单。当代码与其他网站(如Facebook、Twitter等(一起工作时，它给了我运行时错误2147467259。

我很确定这是因为我试图填写的网络表格是基于一个专门的公司服务器。

这是我代码的第一部分：

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

您提供的信息不多。基于：

我很确定这是因为我试图填写的网络表单into基于一个专用的公司服务器。

像这样更改行：

Set IE = CreateObject("internetexplorer.application")

到这个

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