DESCARGAR datos de INTERNET con Excel que NO están en TABLAS (versión extendida)

Tutorial para explicar como importar cualquier tipo de información de internet (especialmente datos que no estén en tablas). Con este método no necesitamos que los datos estén en tablas y se puedan descargar desde el asistente.
El primer vídeo en el que explicamos este método es este:
• Extraer datos web que ...
El método será ejecutar esta macro:
----------------------------------------
Sub ExtraerHTML():
On Error Resume Next
Dim CodigoHTML As Variant
Application.ScreenUpdating = False
For Each Url In Selection
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Url, False
.Send
CodigoHTML = .ResponseText
y = 1
For x = 1 To (Int(Len(CodigoHTML) / 32500)) + 1
y = y + 1
Cells(Url.Row, y) = Mid(CodigoHTML, ((x - 1) * 32500) + 1, 32500)
Next
End With
Next
End Sub
-----------------------------
Descargar datos web
Y posteriormente con fórmulas de texto como hallar y extrae sacamos la información que necesitemos
Para extraer los datos con el asistente preparamos el siguiente tutorial:
• EXTRAER DATOS de la WE...
Twitter: / aprendizdebolsa
Instagram: / ivancosta.80