VBA для автоматизации входа на сайт и поиска - PullRequest
0 голосов
/ 06 января 2020

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

Sub CRMLogin()



' open IE, navigate to the desired page and loop until fully loaded
    Set ie = CreateObject("InternetExplorer.Application")
    my_url = "{URL LINK}"

    With ie
        .Visible = True
        .Navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400

    Do Until Not ie.Busy And ie.ReadyState = 4
        DoEvents
    Loop

    End With

' Input the userid and password
    ie.document.getElementbyid("userNameInput").Value = "UCCORG\SMalik"
    ie.document.getElementbyid("passwordInput").Value = "Iphone143@"

' Click the "Search" button
    ie.document.getElementbyid("submitButton").Click

 Do Until Not ie.Busy And ie.ReadyState = 4
        DoEvents
    Loop

Теперь мне нужно войти что-то в строке поиска и поиска, вот код HTML для панели поиска

<input tabindex="0" class="ms-crm-Dialog-Lookup-QuickFind" id="crmGrid_findCriteria" type="text" maxlength="100" value="" hintlabelid="crmGrid_findHintText">

Я попытался сделать это:


    ie.document.getElementbyid("crmGrid_findCriteria").Value = "test search"

, но я получил бы следующую ошибку: «Требуется объект»

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...