Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

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:UsersMi CuentaDocumentsImporta 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:UsersMi CuentaDocumentsImporta 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