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

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?

 

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
×
×
  • Create New...

Important Information

Privacy Policy