ужно сделать следующее

Перейти кhttp://healthapps.state.nj.us/facilities/acSetSearch.aspx?by=county

Выбрать "Специальная больница" а также "Все амбулаторно-поликлинические учреждения ** ПРИМЕЧАНИЕ № 2"

НажмитеПОИСКПеребрать все больницы в спискеНажмите на каждую больницуПолучить некоторые данные со страницы больницы

У меня 2 проблемы

Я не знаю, как выбрать "Специальная больница" а также "Все амбулаторно-поликлинические учреждения ** ПРИМЕЧАНИЕ № 2"Когда я вручную выбираю эти 2 типа и затем нажимаю на некоторые из больниц, URL-адрес не зависит от выбора. Это становитсяhttp://healthapps.state.nj.us/facilities/acFacilityList.aspx после того, как я выберу 2 типа, то останусь таким же, когда я нажму на больницы. Поэтому я не могу написать код, который будет очищать эти страницы, потому что я не знаю, как указать URL для каждой больницы.

Я извиняюсь, это должен быть очень простой вопрос, но я не смог найти в Google что-нибудь полезное для Access VBA

Вот код, который извлекает данные со страницы, я пока не делал циклы, так что это просто базовое извлечение исходных данных за страницу

Public Function btnGetWebData_Click() 
    Dim strURL
    Dim HTML_Content As HTMLDocument
    Dim dados As Object

    'Create HTMLFile Object
    Set HTML_Content = New HTMLDocument

    'Get the WebPage Content to HTMLFile Object
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://healthapps.state.nj.us/facilities/acFacilityList.aspx", False
        'http://healthapps.state.nj.us/facilities/acFacilityList.aspx
        .Send
        HTML_Content.Body.innerHTML = .responseText
        Debug.Print .responseText
        Debug.Print HTML_Content.Body.innerHTML
    End With
End Function