Crea archivo txt para exportar percepciones IB a SIAP

Este procedimiento crea un archivo txt a partir de los datos de percepciones retenciones de ingresos brutos cargadas para ser importadas desde el SIAP.

Sub ImportaPercepcionesGananciasSiap()

Application.ScreenUpdating = False
‘Multiplica por uno para convertir texto en número de existir, para luego si es entero agregar
‘dos dígitos despues del último número.
Range(“W1”).Select
    Selection.Copy
    Range(“F2:F2000”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
‘el siguiente procedimiento es para copiar y armar el archivo txt con los valores cargados
Range(“b2”).Select
While ActiveCell.Value <> “”
‘se pasa a la fila siguiente
ActiveCell.Offset(1, 0).Select
‘se repite el ciclo
Wend
‘pone el numero de la fila libre en la variable filalibre
filalibre = ActiveCell.Row – 1
‘arma un rango con el valor de la fila libre
mirango = “v2” & “:v” & filalibre
Range(mirango).Select
Selection.Copy
‘agrega un nuevo libro y elimina todas las hojas
Workbooks.Add
Range(“a1”).Activate
Selection.PasteSpecial Paste:=xlValues
‘inhabilita el modo Copiar/Pegar
Application.CutCopyMode = False
Application.DisplayAlerts = False
While ActiveWorkbook.Sheets.Count <> 1
ActiveSheet.Next.Delete
Wend
‘ActiveWorkbook.SaveAs Filename:=”C:Importa percepciones IVA a SIAP1″, FileFormat:=xlTextMSDOS, CreateBackup:=False
‘ActiveWorkbook.SaveAs Filename:=”C:Importa percepciones Ganancias_PF a SIAP.txt”, FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=”C:UsersMi CuentaDocumentsImporta percepciones Ganancias_PF a SIAP.txt”, FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox (“Se creo con éxito el archivo en C:UsersMi CuentaDocumentsImporta percepciones Ganancias_PF a SIAP.txt; debiendo importarlo desde el aplicativo correspondiente como retenciones”), vbInformation
Range(“a1”).Select
End Sub

If this post was helpful INVITE ME A COFFEE and so help keep up the page.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends