Я пытаюсь нажать на элемент mnet после ввода данных в это поле: - PullRequest
0 голосов
/ 11 марта 2020

Я пытаюсь щелкнуть элемент mnet после ввода данных в это поле:

<form action="/bg/Proverka-na-smetka-za-elektroenergiya" method="post" style="margin-bottom: 15px;">
<input type="Text" name="kin" value="1100328558" style="color: #8D8D8D; width: 124px; height: 22px; border: 1px solid #ADADAD; font-size: 12px; padding: 0 0 0 8px; float: left; margin: 5px 6px 0px 0; " onclick="javascript:if(this.value=='Клиентски номер')this.value='';">
<input type="Image" src="img/search_bg.jpg" style="margin: 6px 0 8px 0; float: left; "><br>
<div class="clear"></div>

Как я могу использовать IE .Document.getElementBy VBA ?

Это код, который я использую:

Sub energo()
    Dim ieEnergo As Object
    Dim docEnergo As HTMLDocument

    Set ieEnergo = CreateObject("InternetExplorer.Application")
    ieEnergo.Visible = True

    ieEnergo.navigate "https://www.energo-pro.bg/bg/Proverka-na-smetka-za-elektroenergiya"

    Do While ieEnergo.Busy Or ieEnergo.readyState  4
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Set docEnergo = ieEnergo.document

    For rowNoEnergo = 2 To 2
        docEnergo.getElementById("kin").Value = ThisWorkbook.Sheets("Sheet1").Range("A2").Value

    Next

1 Ответ

0 голосов
/ 11 марта 2020

Используйте следующее:

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "Mention URL here.."
'Code to update value in input
IE.Document.getElementByName("kin")(0).Value = "Put Value Here"
'Then submit
IE.Document.getElementById("submit").Click
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...