доброго времени суток всем!
Почему одно поле выбивается из списка?
Есть код. Открывает ИЕ и заполняет поля
но одно поле не заполняет
как побороть?
Думал может есть возможность послать сообщение окну, но SPYXX не показывает окон
Почему одно поле выбивается из списка?
Есть код. Открывает ИЕ и заполняет поля
но одно поле не заполняет
как побороть?
Код |
---|
Sub Rab_IE() Dim ie, rod Dim pe1, pe2, pf, pi, pt, but Dim emm: emm = "пример@gmail.com" Dim fio: fio = "Моторин" Dim nam: nam = "Александр" Dim Text: Text = "Примите, пожалуйста, обращение. Подробности в файле" Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate ("http://services.government.ru/letters/form/") pe1 = ie.document.getElementsByClassName("input__text input__email textinput required") pe1.Value = emm pe2 = ie.document.getElementsByClassName("input__text input__email textinput") pe2.Value = emm ' НЕ ЗАПОЛНЯЕТ ПОЛЕ pf = ie.document.getElementsByClassName("input__text input__surname textinput required") pf.Value = fio pi = ie.document.getElementsByClassName("input__text input__firstname textinput required") pi.Value = nam pt = ie.document.getElementsByClassName("textarea input__ question required") pt.Value = Text End Sub |