Работа с IE из VBA и выпадающими списками на web-формах

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Работа с IE из VBA и выпадающими списками на web-формах (Макросы/Sub)

angels_777_dreams

Дата: Среда, 22.01.2025, 11:51 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! Пытаюсь с помощью макроса заполнить данные на форме из excel, но не получается изменить значение в выпадающем списке на сайте (не могу выбрать область). Может у кого-то была похожая проблема?! Или подскажите пожалуйста решение, в vba практически не разбираюсь.

пример кода:
[vba]

Код

Option Explicit
Const sSiteName1 = "https://fssp.gov.ru/iss/ip/";

Sub FSSP_search()
    Dim oIE As Object
    Dim oHDoc As HTMLDocument

    Set oIE = CreateObject("InternetExplorer.Application")


    ' Open Internet Explorer Browser and keep it visible.
    With oIE
        .Visible = True
        .TheaterMode = True
        .Navigate sSiteName1
    End With

    While oIE.ReadyState <> 4
        DoEvents
    Wend

    Set oHDoc = oIE.Document

    With oHDoc
        '.getElementById("region_id").Value = "Воронежская область"

        .getElementById("input01").Value = Worksheets("FIO").Cells(3, 6)
        .getElementById("input02").Value = Worksheets("FIO").Cells(3, 7)
        .getElementById("input05").Value = Worksheets("FIO").Cells(3, 8)
        .getElementById("input06").Value = Worksheets("FIO").Cells(3, 3)

        .getElementById("btn-sbm").Click
    End With
End Sub

[/vba]

Ответить

Работа с IE из VBA и выпадающими списками на web-формах (Макросы/Sub)

Страница 1 из 1
1