UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

alexmonza


Estimados necesito por favor que me ayuden con el siguiente problema, 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.
Esta es la macro en cuestión:
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.
 
Esperando su valiosa ayuda,

Alex


Adjunto link al archivo excel para ser descargado para su estudio y ayuda 

Igtelo


Hola Alex.

Si que me costó trabajo quitar los espacios, la solución que encontré:

Agregué una hoja (Hoja1), copia datos de tu hoja y pega como valores en la Hoja1 y ya en ésta guarda como text. Lo intenté en la misma hoja y no quita los espacios. No te puedo explicar el por qué, pero ya funciona, jeje.

La ruta en donde siempre guardará es en la que abras el archivo de excel, o sea el .xlsm y en la misma lo guarda como .txt

La puedes ejecutar con CTRL+o

Aprendí algo nuevo!!

Saludos
Ignacio Téllez
P.d: Para próximas consultas sube el archivo aquí en el foro comprimido en ZIP.
Archivos
Alexmonza-Texto tabulaciones.zip
No tienes los permisos para descargar los archivos.
(22 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.