Ayuda para abrir Archivo XML desde Excel

[afigueroaf]

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,

[Janlui]

Sube tu archivo excel con tu macro y 2 ejemplos (archivos) XML

[afigueroaf]

ok

Gracias

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

[Janlui]

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

[Janlui]

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?

 

[afigueroaf]

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

[afigueroaf]

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

[Janlui]

No vi tu proceso para extraer

[afigueroaf]

Esa es la segunda parte, estoy trabajando ahora en ello

Gracias,

[Janlui]

Yo veo esto en el XML en esta factura 1549 y tu tienes otra cifra en tu hoja MKT

[Héctor Miguel]

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