Ошибка документа метода объекта "IWebBrowser2" - PullRequest
Новая
       31

Ошибка документа метода объекта "IWebBrowser2"

0 голосов
/ 02 августа 2020

Я пытаюсь написать код, который позволит мне заполнять веб-форму данными Excel одним нажатием кнопки. Хотя код отлично работает с другими сайтами (например, Facebook, Twitter и т. Д. c.), Он дает мне ошибку во время выполнения 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

1 Ответ

0 голосов
/ 02 августа 2020

Немного низкой информации от вас. На основе:

Я почти уверен, что это потому, что веб-форма, в которую я пытаюсь заполнить данные, основана на выделенном сервере компании.

Измените строку следующим образом : 

Set IE = CreateObject("internetexplorer.application")

на это 

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