Пытаюсь написать макрос, который должен заполнять форму на сайте. В форме есть выпадающий список, и в зависимости от того, какой элемент выпадающего списка будет выбран, меняется и сама форма.
Мне удалось сделать так, чтобы макрос выбирал нужный элемент из выпадающего списка, но при этом форма почему-то не меняется, она остается такой как будто выбран элемент по умолчанию. Не могу понять, проблема у меня в коде или в самой форме на сайте?
Код макроса:
Мне удалось сделать так, чтобы макрос выбирал нужный элемент из выпадающего списка, но при этом форма почему-то не меняется, она остается такой как будто выбран элемент по умолчанию. Не могу понять, проблема у меня в коде или в самой форме на сайте?
Код макроса:
| Код |
|---|
Sub тест()
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
s = "http://support.fsa.gov.ru/"
oIE.Navigate (s)
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
Set Start = oIE.Document.getElementsbyTagname("a")
Start(13).Click
Set SelectList = oIE.Document.getElementsbyTagname("Select")
SelectList(19).Value = "measurements"
End Sub
|
