Guardar rango de datos de mi hoja de excel en formato .txt

Si me pueden ayudar con el siguiente trabajo:

Manejo una hoja de excel con encabezados NIT-COD-MONTO-FACTURA-FECHA, las cuales en la parte de abajo o sea desde la fila A2 ingreso los datos correspondientes para cada encabezado, después tengo que copiar a un nuevo libro solo los datos y ya no los encabezados, ya el nuevo libro que tiene solo los datos tengo que guardarlos con tipo CSV (delimitado por comas) (.*csv) con el nombre del mes a los que corresponde, una vez guardados tengo que cambiar el formato .csv a .txt, hay alguna manera de que se pueda pasar directamente mediante una macro solo el rango de A2 : E50 donde están los datos y guardarlos como .txt?

1 Respuesta

Respuesta
3

Prueba con la siguiente macro

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: pasaratxt
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub pasaratxt()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
    mes = Month(Range("E2"))
    ruta = ThisWorkbook.Path & "\"
    Set l2 = Workbooks.Add
        Set h2 = l2.ActiveSheet
            h1.Range("A2:E50").Copy h2.Range("A1")
            h2.SaveAs Filename:=ruta & mes & ".txt", _
                FileFormat:=xlCSV, _
                CreateBackup:=False
            ActiveWorkbook.Close
        Set h2 = Nothing
    Set l2 = Nothing
Set h1 = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Saludos.DAM
Si es lo que necesitas.

Estimado Dan esta buenísima la macro, pero un favor este archivo lo creo para mandar a una base de datos externa y tengo que mandarla como .txt delimitado los datos por | este palito (disculpa la expresión pero no recuerdo como se llama en este momento) y bueno el archivo que lo guardamos con tu macro lo separa con una coma ( , ) como seria para guardarlos datos separados con ese carácter | ?

gracias

saludos

Jesús

Eso no venía en tu primera pregunta. Pero revisa la siguiente macro.

A mí me funciona, me deja el archivo como txt y separados por pipe "|"

Sub pasaratxt()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
    mes = Month(Range("E2"))
    ruta = ThisWorkbook.Path & "\"
    Set l2 = Workbooks.Add
        Set h2 = l2.ActiveSheet
            h1.Range("A2:E50").Copy h2.Range("A1")
            h2.SaveAs Filename:=ruta & mes & ".txt", _
                FileFormat:=xlCSV, _
                CreateBackup:=False
            ActiveWorkbook.Close
            Workbooks.Open ruta & mes & ".txt"
            Cells.Replace What:=",", Replacement:="|"
            ActiveWorkbook.Save
            ActiveWindow.Close
        Set h2 = Nothing
    Set l2 = Nothing
Set h1 = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Saludos.DAM

No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Macro para copiar y pegar de un libro a otro

Necesito una macro que copie todos los datos (variables) de una hoja del libro 1 y los pegue tras la útlma fila ocupada en otra hoja pero del libro 2
1 respuesta

Macro para juntar la información de 4 archivos de excel en una nueva hoja y de 1 archivo aparte en otra

Tengo un macro que juntas hojas pero no cumple con lo que necesito. Me gustaría un macro que me permitiera seleccionar 4 archivos (cambian cada vez) y junte los datos de las primeras hojas de estos archivos en la primera hoja del libro donde estoy...
1 respuesta

¿Cómo puedo buscar datos en un libro cerrado con la función VLookup en VBA?

Quiero buscar datos en un libro que está cerrado con la función VLookup desde VBA. Lo he intentado de varias formas y no he podido obtener nada, por ejemplo: For i = 10 To 29 Range("B" & i) = WorksheetFunction.VLookup(Range("H" & i),...
2 respuestas

Guardar un rango de una hoja en excel como imagen con una macro

Quisiera que me ayudaran, Le explico lo que quiero hacer: En una hoja de excel hay una listas de datos ej.(A1:C10) Quisiera una macro, que me guarde el rango A1:C10 como una imagen, dandole el nombre con el valor de la casilla D1
1 respuesta

Macro que compare valores de sos libros

Macro Tengo un libro llamado "libro1" de ahí quiero tener el botón para correr la macro quiero que al correrla me abra la ventana para yo seleccionar que archivo abrir de excel que este varia el nombre al momento de abrirlo me filtre por dos...
1 respuesta

¿Cómo eliminar repetidos, si estos se repiten más de 3 veces, me deje solo 2 registros?

, espero que me puedan ayudar mi problema es el siguiente: Tengo una base de datos en la cual los registros se repiten mas de 3 veces, necesito que borre los demas registros y solamente me deje 2 de esos registros, siempre y cuando se repita mas de 3...
1 respuesta

Copiar hoja a otro libro, solo que pase como valores

Tengo una hoja que tiene cálculos (fórmulas), lo que quiero es pasarla a otro libro en la misma ubicación (carpeta) solo que cuando pase, sean solo valores sin fórmulas pero conservando el formato, me refiero al diseño... Gracias. Saludos Desde...
1 respuesta

Macro para llenar diferentes archivos con valores de celdas.

Espero explicarme: Tengo 2 archivos: ----------------------------------------------------------------------------------- El primero llamado "todo_1.xls", este contiene 6 columnas y cada una con los siguientes datos: * Artista: --------- * No. De...
1 respuesta