Jump to content

Ayuda para abrir Archivo XML desde Excel


Go to solution Solved by Janlui,

Recommended Posts

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,

Link to comment
Share on other sites

  • Solution

Los archivos XML deberán estar en la misma carpeta del archivo Excel.

Sub EXTRAE()
    Sheets("READFACT").Select
    Range("A1:ZZ10000").ClearContents
    RUTA = "TEXT;" & ActiveWorkbook.Path & "\"
    
    Dim ARCH(2) As String
    
    ARCH(1) = "D77368930-KD033F0000001548.xml"
    ARCH(2) = "D77368930-KD033F0000001549.xml"
    
    For I = 1 To 2
        Cells(1, I) = ARCH(I)
        ARCHIVO = ARCH(I)
        
        With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I))
            .Name = ARCHIVO
            .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
    Next
End Sub

Espero te sirva

Link to comment
Share on other sites

En 19/5/2022 at 12:25 , Janlui dijo:

Los archivos XML deberán estar en la misma carpeta del archivo Excel.

Sub EXTRAE()
    Sheets("READFACT").Select
    Range("A1:ZZ10000").ClearContents
    RUTA = "TEXT;" & ActiveWorkbook.Path & "\"
    
    Dim ARCH(2) As String
    
    ARCH(1) = "D77368930-KD033F0000001548.xml"
    ARCH(2) = "D77368930-KD033F0000001549.xml"
    
    For I = 1 To 2
        Cells(1, I) = ARCH(I)
        ARCHIVO = ARCH(I)
        
        With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I))
            .Name = ARCHIVO
            .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
    Next
End Sub

Espero te sirva

Gracias Janlui,

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

Link to comment
Share on other sites

En 19/5/2022 at 12:50 , Janlui dijo:

Lo que veo que la factura 1549 tiene 4 importes y en tu Hoja MKT tienes solo 1 y no da la suma de la factura... es correcto?

 

Si, pero no importa, sólo necesito extraer ciertos datos de cada XML, tales como: 

FECHA
FACTURA N°
ACREEDOR
RUT
DETALLE
NETO
IVA
BRUTO

Link to comment
Share on other sites

En 20/5/2022 at 14:48 , afigueroaf dijo:

sólo necesito extraer ciertos datos de cada XML, tales como: 

si consultas por (SOLO) "una parte" de la situacion a resolver

aspiras a (SOLO) "una parte" de la (posible) solucion

prueba con el adjunto (segun tu muestra), solo pulsa el boton y sigue las instrucciones (son pocas, solo una): => selecciona la carpeta con los *.xml a reportar

puedes consultar en tantas carpetas como necesites (solo se procesan los *.xml)

tus ultimas columnas son formulas (o datos ingresados) que NO vienen en los *.xml (excepto iva)

scrapXML (ayudaExcel).xlsb

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • 28 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      150
    • Comments
      88
    • Reviews
      25

  • Crear macros Excel

  • Posts

    • Gracias a @Israel Cassales que me advirtió de un fallo en la formula del archivo, pero el procedimiento VBA si esta bien Lo correcto es  =INDICE(B2:N11,COINCIDIR(Q1,A2:A11,),COINCIDIR(P1,B1:N1,)) Es decir, estaba invertido la fila y columna, como argumento de INDICE  
    • Gracias por la confianza, a lo que yo me refiero es que en la formula INDICE ves que después de la matriz, sigue la fila y luego la columna, como en el ejemplo hace referencia a la celda, ésta toma primero la columna y después la fila. Eso hace que el resultado no sea el mismo con respecto al que da el ejemplo correcto del VBA.   Y como dices, esperar la respuesta, que la opción del VBA debería cumplir con la solicitud sin problema. Saludines.  
    • Hola Israel Tranquilo nada de entrometido... he visto el archivo y no lo veo invertido o no entiendo exactamente a que te refieres Esperemos que el consultante, suba su propio libro, para ver claramente su caso ¡Gracias por el aviso!   Saludos   
    • Saludos cordiales @Gerson Pineda Lamento si escribo en tu presentación pero no me dejo mandarte algún mensaje, me dice que estoy limitado a 0 mensajes por día 😁 No quiero parecer entrometido y me disculpo de antemano pero me pareció bien el avisarte sobre el detalle en el tema siguiente: Extraer valor de una tabla Las referencias de columna y celda en el COINCIDIR están invertidas devolviendo un valor diferente al correcto como te da la sentencia en VBA. Saludines
    • ¡Hola! ¿Como estan? Me gustaría de saber cómo hacer un hipervínculo dinámico, que lleve a un sitio web externo, al elegir una opción de una lista desplegable. Es decir, cada opción que elijo de la lista desplegable, el hipervínculo cambiará. EN EL CASO DE LA IMAGEN A CONTINUACIÓN, QUIERO QUE CADA NOMBRE DE EJERCÍCIO QUE ELIJO DE LA LISTADESPLEGABLE 'D3' , EL HIPERVÍNCULO DE I3 CAMBIE AL VÍNCULO DEL VIDEO CORRESPONDIENTE AL EJERCICIO EN YOUTUBE:
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy