Automatizacion para generar archivos zip y texto

[sasuke007]

Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro.

1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E"

2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos.

adjunto mi archivo esperando me haya dejado entender gracias.

adjunto el archivo pero me dice que es pesado, adjunto un link gracias.

https://we.tl/t-EqX8pdb74a

 

[bigpetroman]

amigo @sasuke007, tu macro RUC la modifique un poquito, realmente el problema principal es que estabas copiando una fila vacía

Sub Ruc()

    ' Macro5 Macro
    '
    Dim NombreArchivo, rutaArchivo As String
    '
    
    Sheets("Ruc").Select
    
    xx = Range("H1").Value
    
    Range("E1").FormulaR1C1 = "=RC[-4]&""|"""
    Range("E1").Copy
    a = WorksheetFunction.CountA(Range("A:A"))
    Range("E1:E" & a).PasteSpecial xlPasteFormulas
    Range("E1:E" & a).Copy
    Range("E1:E" & a).PasteSpecial xlPasteValues
    MkDir "D:\Macro\Txt\Origen\"
    
    b = 1
    e = 1
    y = Int(a / xx)
    
    If a Mod xx > 0 Then y = y + 1
    
    For j = 1 To y
    
        rutaArchivo = "D:\Macro\Txt\Origen\" & "RUC" & j & ".txt"
        
        Open (rutaArchivo) For Output As 1
        
        For e = 1 To xx
            Print #1, Range("E" & b)
            b = b + 1
            If b > a Then Exit For
        Next e
        
        Close #1
    

        '-------------------------------------------------
        'Call ZIPEADO(b)
        Call Zip_All_Files_in_Folder
        Kill "D:\Macro\Txt\Origen\" & "RUC" & e & ".txt"
        '-------------------------------------------------

    Next j
    
    Sheets("Inicio").Select
    
   ' RmDir "D:\Macro\Txt\Origen\"
    

End Sub

 

[sasuke007]

Hace 37 minutos , bigpetroman dijo:

amigo @sasuke007, tu macro RUC la modifique un poquito, realmente el problema principal es que estabas copiando una fila vacía

Sub Ruc()

    ' Macro5 Macro
    '
    Dim NombreArchivo, rutaArchivo As String
    '
    
    Sheets("Ruc").Select
    
    xx = Range("H1").Value
    
    Range("E1").FormulaR1C1 = "=RC[-4]&""|"""
    Range("E1").Copy
    a = WorksheetFunction.CountA(Range("A:A"))
    Range("E1:E" & a).PasteSpecial xlPasteFormulas
    Range("E1:E" & a).Copy
    Range("E1:E" & a).PasteSpecial xlPasteValues
    MkDir "D:\Macro\Txt\Origen\"
    
    b = 1
    e = 1
    y = Int(a / xx)
    
    If a Mod xx > 0 Then y = y + 1
    
    For j = 1 To y
    
        rutaArchivo = "D:\Macro\Txt\Origen\" & "RUC" & j & ".txt"
        
        Open (rutaArchivo) For Output As 1
        
        For e = 1 To xx
            Print #1, Range("E" & b)
            b = b + 1
            If b > a Then Exit For
        Next e
        
        Close #1
    

        '-------------------------------------------------
        'Call ZIPEADO(b)
        Call Zip_All_Files_in_Folder
        Kill "D:\Macro\Txt\Origen\" & "RUC" & e & ".txt"
        '-------------------------------------------------

    Next j
    
    Sheets("Inicio").Select
    
   ' RmDir "D:\Macro\Txt\Origen\"
    

End Sub

 

Hola Amigo @bigpetroman copie el código me sale lo siguiente.

[bigpetroman]

no se amigo, eso es tuyo, eso estaba en tu código, solo modifique la parte que NO te copiaba los datos al txt, esa es una llamada a una macro que no esta en tu archivo

[sasuke007]

Hola @bigpetroman si amigo ya lo corregí gracias por tu  ayuda.