Visual Basic - Macro para Leer codigo HTML

Sub navegar()

Dim ie As InternetExplorer 'debe habilitarse la Referencia a Microsoft Internet Controls

Set ie = New InternetExplorer  'Establece que IE sera una nueva instancia de IExplorer

Dim web_about

web_about = "https://link.springer.com/book/10.1007%2F978-0-387-21736-9#about"

With ie     ' Acciones a realizar con IE

        .Navigate2 web_about 'Navegar en el Browser a una ubicacion que puede no estar representada como URL

        Do Until ie.ReadyState = READYSTATE_COMPLETE    ' Hara un bucle aca mismo hasta completar la pagina

           DoEvents

        Loop           ' Hara un loop

        .Visible = False    ' No necesitamos ver la pagina, solo extraer los datos

'************************

'Ocultamos el procedimiento

Application.ScreenUpdating = False

'Si hay errores, que continúe

On Error Resume Next

'pasamos a una variable, la página de la

'que vamos a sacar la información

'pasamos la parte que rodea al texto que

'nos interesa, a variables

Dim principio

principio = "<h1>"

Final = ""

Final = "</h1>"

'creamos el objeto xmlhttp

Dim xml

Set xml = CreateObject("Microsoft.XMLHTTP")

'accedemos a la página web

xml.Open "POST", web_about, False

'mandamos el contenido

xml.send

'pasamos el contenido a una variable

Dim texto

texto = xml.responseText

'miramos en que nº de carácter aparecen los textos

'que envuelven la información que necesitamos.

'Primero con la posición inicial

Dim posicion1, posicion2

Sheets("Hoja2").Range("A1") = texto

posicion1 = InStr(texto, principio) + 4

'ahora con la posición final

posicion2 = InStr(texto, Final)

'recuperamos el texto que hay entre esas dos posiciones

Dim dato

dato = Mid(texto, posicion1, (posicion2 - posicion1))

Sheets("Hoja2").Range("B1") = dato

End With

End Sub