Dim Titulo$
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "GET", "https://sitioaverificar", False
objHttp.Send ""
Titulo = objHttp.ResponseText
If InStr(1, UCase(Titulo), "<TITLE>") Then
Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>"))
Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1)
Else
Titulo = ""
End If
MsgBox Titulo
Hola a todos,
Estoy utilizando esta macro para obtener el título de un sitio http para saber si se encuentra ok o no, funciona a la perfección, pero no me resulta para los sitios https
Sólo necesito extraer el título de la venta (ver foto adjunta de ejemplo)
Si oz pudierais ayudarme lo agradecería infinitamente
Gracias,