Jump to content

afigueroaf

Members
  • Posts

    56
  • Joined

  • Last visited

About afigueroaf

  • Birthday 03/03/1978

Contact Methods

  • Website URL
    http://www.wamtech.com

Profile information

  • Gender
    Hombre
  • Localización:
    Chile
  • Interests
    Macros VBA Excel

Converted

  • Campos
    ,

Recent Profile Visitors

799 profile views

afigueroaf's Achievements

  1. 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
  2. Incluso si lo abro directamente desde Excel ocurre algo parecido
  3. 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
  4. 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/
  5. 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,
  6. Esa es la segunda parte, estoy trabajando ahora en ello Gracias,
  7. Si, pero no importa, sólo necesito extraer ciertos datos de cada XML, tales como: FECHA FACTURA N° ACREEDOR RUT DETALLE NETO IVA BRUTO
  8. Gracias Janlui, Ahí me funcionó, te cuento como me estará funcionando
  9. Ok, prueba ahora Con las Telcas Ctrl + q muestras la hoja y con las Telcas Ctrl + a ocultas la hoja EMB.xlsm
  10. Hice un par de ejemplos, prueba con ellos Igual no pude testearla del todo porque la hoja está protegida EMB.xlsm
  11. ok Gracias Facturación M Rut.xlsm D77368930-KD033F0000001548.xml D77368930-KD033F0000001549.xml
  12. Hola, El RAR me arroja error, no lo pude abrir Intentaste con algún ciclo FOR? Saludos, Alejandro
  13. 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,
×
×
  • Create New...

Important Information

Privacy Policy