Preciso fazer o seguinte

Vamos parahttp: //healthapps.state.nj.us/facilities/acSetSearch.aspx? by = county

Select " Hospital Especial "e" Todas as instalações de atendimento ambulatorial ** NOTA # 2"

ClickPROCURALoop através de todos os hospitais da listaClique em cada hospital Obtenha alguns dados da página do hospital

Tenho 2 problemas

Não sei como selecionar o " Hospital Especial "e" Todas as instalações de atendimento ambulatorial ** NOTA # 2" Quando eu seleciono esses dois tipos manualmente e clico em alguns hospitais, o URL não se torna específico da seleção. Se tornahttp: //healthapps.state.nj.us/facilities/acFacilityList.asp depois de selecionar os 2 tipos e permanecer assim quando clico nos hospitais. Portanto, não consigo escrever o código que raspará essas páginas porque não sei como especificar o URL de cada hospital.

Peço desculpas, esta deve ser uma pergunta muito básica, mas não consegui pesquisar no Google nada útil para o Access VBA

aqui está o código que extrai dados de uma página, eu ainda não fiz os loops, então essa é apenas uma atração básica dos dados de origem atrás de uma página

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