¿Cómo usar vba en excel para leer el título de la página web a través de la url (la url es https)?
Función getTitle(sUrl As String)
Dim oXHTTP Como Objeto, Str Como Cadena
Establecer oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sUrl, False
oXHTTP.send
getsource = StrConv(oXHTTP.responseBody, vbUnicode, &H804)
Establecer oXHTTP = Nada
Arr = VBA.Split(oXHTTP.responseBody, vbUnicode, &H804)