Попытка отправить поисковый запрос на указанную c веб-страницу с помощью VBA - PullRequest
0 голосов
/ 04 февраля 2020

Я впервые задаю вопрос здесь. У меня много трудностей с тем, чтобы 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...