Я впервые задаю вопрос здесь. У меня много трудностей с тем, чтобы Excel VBA ввел адрес для поиска и отправил запрос на веб-страницу опасностей AT C. Большая часть сценария работает, за исключением отправки формы, она просто обновляет страницу. Если кто-нибудь может указать мне правильное направление или заставить этот код работать, это будет с благодарностью.
Sub LaunchSite()
Dim IE As Object
Dim TrackID As Object
Dim Address As String
Dim CityStateZip As String
Dim CurrentSheet As String
CurrentSheet = ActiveSheet.Name
Sheets("Inputs").Select
Address = Range("F15")
CityStateZip = Range("F16")
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate "https://hazards.atcouncil.org/"
While IE.readystate <> 4
DoEvents
Wend
Set TrackID = IE.document.getElementById("address-search")
TrackID.Value = Address & " " & CityStateZip
TrackID.form.submit
Sheets(CurrentSheet).Select
End Sub