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,
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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,