Crea archivo txt para exportar a SIAP


Este código crea un archivo txt con las percepciones o retenciones cargadas en excel, es decir lo guarda como txt, luego puede ser importado del aplicativo SIAP de AFIP.


Sub ImportaPercepcionesIvaSiap()
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("x1").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 = "w2" & ":w" & 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 IVA a SIAP.txt", FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\Mi Cuenta\Documents\Importa Percepciones IVA 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:\Users\Mi Cuenta\Documents\Importa Percepciones IVA a SIAP.txt; debiendo importarlo desde el aplicativo correspondiente como retenciones"), vbInformation
Range("a1").Select
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página.


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