rogermv27

Hola Buenas Tardes,

Si alguien me puede ayudar para extraer la informacion de los archivos xml al formato excel

Gracias por su ayuda le estare agradecido

Saludos,

Roger

Lectura del XML.zip

Hola Buenas Tardes,

Si podrian ayudarme con esta macro de generar txt con pipe

Lo he realizado con captura de una celda por el momento y lo que deseo es que capture toda la columna B de la celda 2 hacia abajo (que tenga informacion)

Asi mismo encontre una macro en el foro pero no logro ajustarlo a lo que requiero y lo pueden adicionar que asu vez el archivo txt generado lo comprima en zip

Sub CreaTXT()

    Dim NombreArchivo, RutaArchivo As String
    Dim obj As FileSystemObject
    Dim tx As Scripting.TextStream
    Dim Ht As Worksheet
    Dim i, j, nFilas, nColumnas As Integer
    
    NombreArchivo = "XXXXT02"
    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
    
    Set Ht = Worksheets("Datos")
    Set obj = New FileSystemObject
    Set tx = obj.CreateTextFile(RutaArchivo)
    
    nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
    nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
    
    For i = 1 To nFilas
    
        For j = 1 To nColumnas
                
            tx.Write Ht.Cells(i + 1, j).Value
            If j < nColumnas Then tx.Write "|"
                
        Next j
                
        tx.WriteLine
    
    Next i
    
    tx.Close
    
    Set obj = Nothing
    
    MsgBox "El txt XXXXT02 se ha generado con exito..."

End Sub

txt con pipe.rar