InternetExplorer.Application нажатие кнопки

Пятница, 05 Июля 2019 г. 12:08 + в цитатник

Друзья, помогите.
Почему не работает? Что делаю не так?
Хочу перейти на страницу и скачать файл - нажать на кнопку web.

Private Sub Кнопка2_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Dim a

a = "Скачать"

ie.Visible = True

ie.Navigate ("http://мояколея1520.рф/wagon/8/" & "?btn=" & a)

Do Until ie.ReadyState = 4
DoEvents
Loop

End Sub

https://www.sql.ru/forum/1314470/internetexplorer-application-nazhatie-knopki