Red de conocimiento informático - Material del sitio web - ¿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)?

¿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)