Jump to content

rogermv27

Members
  • Content Count

    6
  • Joined

  • Last visited

About rogermv27

  • Rank
    Newbie
  • Birthday 02/09/1980

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Single Status Update

See all updates by rogermv27

  1. 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

×
×
  • Create New...

Important Information

Privacy Policy