afigueroaf

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

Incluso si lo abro directamente desde Excel ocurre algo parecido

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

Hola Abraham, Muchas gracias nuevamente por responder, por ahora sólo tengo un ejemplo, pero si sirve para este estamos bien https://coiquen-acot.enlazza.net:16900/

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,

Prueba ahora EMB.xlsm

Si se puede Ahora si, prueba esta EMB.xlsm

Esa es la segunda parte, estoy trabajando ahora en ello Gracias,

Si, pero no importa, sólo necesito extraer ciertos datos de cada XML, tales como: FECHA FACTURA N° ACREEDOR RUT DETALLE NETO IVA BRUTO

Gracias Janlui, Ahí me funcionó, te cuento como me estará funcionando

Ok, prueba ahora Con las Telcas Ctrl + q muestras la hoja y con las Telcas Ctrl + a ocultas la hoja EMB.xlsm

Hice un par de ejemplos, prueba con ellos Igual no pude testearla del todo porque la hoja está protegida EMB.xlsm

ok Gracias Facturación M Rut.xlsm D77368930-KD033F0000001548.xml D77368930-KD033F0000001549.xml

Hola, El RAR me arroja error, no lo pude abrir Intentaste con algún ciclo FOR? Saludos, Alejandro

Hola a todos, Actualmente tengo una Macro que me funciona bastante bien para abrir un archivo XML, cargando su contenido a partir de una celda de Excel, para visualizar directamente su contenido Sub Macro2() ' ' Macro2 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\Alejandro Figueroa\Nextcloud\WAMTECH\AEC77368930-KD33F0000001553.xml" _ , Destination:=Range("$A$4")) .CommandType = 0 .Name = "AEC77368930-KD33F0000001553" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub El problema es que ahora necesito realizar algún ciclo for, para repetir la misma acción, pero para varios archivos XML. Intenté modificar el código anterior, pero no supe cómo utilizar una variable que contiene la Ruta y el Nombre de archivo en el código anterior (la parte que se encuentra en negrillas). Si os pudierais ayudaros indicando algún otro código útil os lo agradecería de sobremanera Gracias,