Saltar al contenido

Obtener título de una ventana Https

publicado
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,

Imagen2.jpg

Featured Replies

publicado
  • Autor

Yo si puedo entrar, primero hago clic en avanzado y luego en continuar y entonces llego a la página que necesito revisar. Esto sólo ocurre la primera vez, luego si lo intento nuevamente carga el sitio inmediatamente y no me vuelve a preguntar 

Imagen17.jpg

publicado
  • Autor

Incluso si lo abro directamente desde Excel ocurre algo parecido

Imagen19.jpg

  • 2 weeks later...
publicado
  • Autor

Nuevamente muchas gracias Abraham por tu tiempo y la ayuda, tienes razón,  no se puede automatizar a través de código VBA, por lo tanto, tuvimos que implementar una solución Semiautomática o Artesanal, con la opción "Ver Código Fuente de la Página" (Ctrl + U) y ahí recién logramos obtener el title

image.thumb.jpeg.ae6ee4afb6022f55105ba06e2151b956.jpeg

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.