Я не могу использовать приведенный ниже код для входа на сайт с помощью Internet Explorer.Это говорит об ошибке выполнения 424 - Требуется объект

Question

Строка, в которой я получаю сообщение об ошибке: oBrowser.Document.getElementById ("LOGUSER"). Значение = "гггггггг"

Ниже приведен полный код:

Sub website()
    On Error GoTo 0

    Dim sURL As String
    Dim oBrowser As InternetExplorerMedium
    Dim HTMLDoc As HTMLDocument
    Dim oHTML_Element As IHTMLElement

    sURL = "https://xyxyxyxyxyyyx"
    Set oBrowser = New InternetExplorerMedium

    oBrowser.Silent = True
    oBrowser.navigate sURL

    Do Until oBrowser.readyState = 4
    DoEvents
    Loop
    oBrowser.Visible = True



    oBrowser.Document.getElementById("LOGUSER").Value = "yyyyyyyyy"
        oBrowser.Document.getElementById("LOGPASS").Value = "sgsgrger"

    oBrowser.Document.getElementById("Login").Click

    Do Until Not oBrowser.Busy And oBrowser.readyState = 4
        DoEvents
    Loop
End Sub

Answer 1

Убедитесь, что HTML-элемент с идентификатором LOGUSER доступен на вашей веб-странице.

Если ваш код не может найти этот элемент, он сгенерирует эту ошибку.

Попытайтесь проверить правильность написания, и оно было написано точно так же, как на вашей веб-странице.

Я пытаюсь проверить ваш код и немного изменить его, и похоже, что он работает нормальномоя сторона.

Sub website()

On Error GoTo 0

Dim sURL As String
Dim oBrowser As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim oHTML_Element As IHTMLElement

sURL = "C:\Users\Administrator\Desktop\75.html"

Set oBrowser = CreateObject("InternetExplorer.Application")


oBrowser.navigate sURL

Do Until oBrowser.readyState = 4
DoEvents
Loop
oBrowser.Visible = True


oBrowser.Document.getElementById("LOGUSER").Value = "abcd"
oBrowser.Document.getElementById("LOGPASS").Value = "xyz"

oBrowser.Document.getElementById("Login").Click


End Sub

Вывод:

Вы можете попробовать проверить свою сторону и сообщить нам, если проблема не устраненаМы постараемся предоставить дополнительные предложения.