Введите текст в поле ввода html с помощью vba

Question

Я пытаюсь ввести значение в a из страницы интернет-исследователя с помощью VBA. Я видел похожие сообщения, но, похоже, не могу точно определить свою проблему. Я немного уверен в VBA, но HTML для меня новичок. Атрибуты идентификатора меняются на веб-странице, к которой я обращаюсь каждый раз при загрузке страницы. Вот снимок HTML элемента я пытаюсь получить доступ к:

<input type="text" size="20" style="text-align: right; width: 261px;" autocomplete="off" id="ext-comp-1067" name="user_numbers.1.number_1" class="x-form-text x-form-field x-form- num-field" title=""> 

Код Сейчас я использую здесь:

Sub OpenWebPage() 

    Dim ObjCollection As Object 
    Dim i As Long 
Dim objElement As Object 
Dim doc As Object 
Dim form As Object 



    Dim ie As Object 
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION") 
    ie.Navigate "http://11.182.123.21/#!/view/dashboards/dashboard-1" 
    ie.Visible = True 
    While ie.Busy 
     DoEvents 
    Wend 


    Application.Wait Now + TimeValue("00:00:10") 

Set ObjCollection = ie.Document.getElementsByName("user_numbers.1.number_1").Value = "123" 

End sub 

Название «user_number.1.number_1» Я думаю, что это только элемент в html, который я могу использовать для поиска этого окна ввода, ID меняется каждый раз, когда вы открываете веб-страницу. Как мне получить значение в этом поле?

Спасибо!

Answer 1

Как упоминалось выше, у вас есть дополнительный знак «=».

Заменить

Set ObjCollection = ie.Document.getElementsByName("user_numbers.1.number_1").Value = "123" 

с

ie.Document.getElementsByName("user_numbers.1.number_1")(0).Value = "123" 

Это просто от моей головы и не тестируется код. Если это не сработает, замените (0) в вышеуказанном коде (1).

Если на странице с тем же именем нет другого элемента, это будет работать. В противном случае замените (0) в приведенном выше описании с соответствующим порядковым положением.

Answer 2

Как о поиске ID каждый раз, как этот

my_var = ie.doc.body.innerhtml 

pos_1 = instr(1, my_var, "user_numbers.1.number_1", vbTextCompare) 
pos_2 = InStrRev(my_var, "id", pos_1, vbTextCompare) 
pos_3 = instr(pos_2, my_var, "name", vbTextCompare) 

my_id = mid(my_var, 3+pos_2, (-1+pos_3) - (3+pos_2) 

теперь попробуйте

ie.Document.getElementById(my_id).Value = "123" 

Я не могу получить доступ к URL, так что вы, возможно, придется подправить цифры складывать и вычитать в «средняя» функция