Access - Capturar datos de una página web.

Private Sub btnCapturarDatos_Click()

    ' Crea una instancia del objeto Internet Explorer

    Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")

    ' Navega hasta la página que contiene los datos a capturar

    ie.Navigate "https://www.ejemplo.com/ficha-legislativa"

    ' Espera a que la página se cargue completamente

    Do While ie.Busy

        DoEvents

    Loop

    ' Captura los datos de los campos de la ficha

    Dim campo1 As String

    campo1 = ie.Document.getElementById("campo1").Value

    ' Repite para cada campo de la ficha

    ' Cierra el objeto Internet Explorer

    ie.Quit

    ' Guarda los datos en la base de datos

    Dim db As DAO.Database

    Set db = CurrentDb()

    Dim rs As DAO.Recordset

    Set rs = db.OpenRecordset("NombreDeLaTabla")

    rs.AddNew

    rs("Campo1") = campo1

    ' Repite para cada campo de la ficha

    rs.Update

    rs.Close

    Set rs = Nothing

    Set db = Nothing

    MsgBox "Datos capturados correctamente."

End Sub