Saltar al contenido
macrosenexcel.com

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

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

(adsbygoogle = window.adsbygoogle || []).push({});

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