Estimados tengo un archivo Excel que me genera mediante una macro un archivo txt con tabulaciones, pero mi problema es que al lado derecho salen espacios lo cual no se requieren y requiero eliminar.
Adjunto archivo para su ayuda y ver como funciona y que es lo que me falta para generar un archivo sin espacios extras y que me pida la ubicación donde guardar el archivo específicamente.
Este es el código de la macro, la cual primero crea una copia de la hoja y luego a partir de esa copia de hoja crea el archivo txt que se guarda en forma automática, pero a veces cambia la ubicación donde se guarda sin poder controlar eso, y además me deja unos espacios al lado del archivo txt que están demás para lo que necesito.
Estimados tengo un archivo Excel que me genera mediante una macro un archivo txt con tabulaciones, pero mi problema es que al lado derecho salen espacios lo cual no se requieren y requiero eliminar.
Adjunto archivo para su ayuda y ver como funciona y que es lo que me falta para generar un archivo sin espacios extras y que me pida la ubicación donde guardar el archivo específicamente.
Este es el código de la macro, la cual primero crea una copia de la hoja y luego a partir de esa copia de hoja crea el archivo txt que se guarda en forma automática, pero a veces cambia la ubicación donde se guarda sin poder controlar eso, y además me deja unos espacios al lado del archivo txt que están demás para lo que necesito.
Sub COPIAR_HOJA_Y_CREAR_TXT()
Application.ScreenUpdating = False
nombre = "TXT_CON_ESPACIOS_A_LA_DERECHA"
Sheets("sige_actas_5").Select
Sheets("sige_actas_5").Copy
Application.DisplayAlerts = False
Range("O1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireColumn.Hidden = True
Range("L1").Select
ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlText, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWindow.Close
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Archivo 5 generado correctamente", 64, "Datos archivo 5"
End Sub
También aclaro que los datos pueden variar en la cantidad de filas.
Se adjunta archivo de excel 2010 de ejemplo, comprimido en winrar
Esperando su valiosa ayuda,
Alex
problema_txt_con_espacios_extras.rarFetching info...