Como hacer macro paso a paso de xsl a txt csv

H o l a:

Te anexo la macro para pasar los datos de una hoja de excel a un archivo txt delimitado por comas.

Lo que tienes que hacer es cambiar estos datos en la macro por tus datos:

    ruta = "C:\Trabajo\"    'directorio para guardar el archivo
    nomb = "archivo.txt"    'nombre del archivo
    hoja = "Hoja1"          'nombre de la hoja a guardar

La macro completa:

Sub CrearCsv()
'Por.Dante Amor
    ruta = "C:\Trabajo\"    'directorio para guardar el archivo
    nomb = "archivo.txt"    'nombre del archivo
    hoja = "Hoja1"          'nombre de la hoja a guardar
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets(hoja).Copy
    ActiveWorkbook.SaveAs Filename:=ruta & nomb, FileFormat:=xlCSV
    ActiveWorkbook.Close
    MsgBox "Archivo creado"
End Sub

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: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CrearCsv
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Muchas gracias Dante por tu explicación y tiempo pero me sale lo siguiente: se ha producido error 9 en tiempo de ejecución subíndice fuera del intervalo, que puedo hacer ahora

Me pidió depurar lo hice y me sale eso Sheets ventas.Copy como parte del error, la verdad no se que poner allí por favor si podrías ayudarme.

Tienes que poner en la macro el nombre de tu hoja en esta línea:

Hoja = "Hoja1" 'nombre de la hoja a guardar

Cambia el texto "Hoja1" por el nombre de tu hoja que quieras exportar a txt

O dime cómo se llama tu hoja que quieres exportar a txt; y modifico la macro.

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Lee con cuidado las instrucciones que te puse.

Te escribí que tienes que modificar estas líneas:

Lo que tienes que hacer es cambiar estos datos en la macro por tus datos:

    ruta = "C:\Trabajo\"    'directorio para guardar el archivo
    nomb = "archivo.txt"    'nombre del archivo
    Hoja = "Hoja1" 'nombre de la hoja a guardar

Y tú estás modificando esta línea

Sheets(hoja). Copy

Revisa nuevamente las instrucciones y sigue al pie de la letra cada instrucción.

Te envío la macro que inserte y el nombre esta allí mi hoja en excel se llama:

VentasEstandar abril 2016 lo quiero guardar en unidad C en una carpeta que cree con el nombre de macros te agradezco

Por favor si el nombre de la hoja es muy grande puede ser solamente ventas abril y quiero guardarlo en unidad DE cree una carpeta con el nombre de Impuestos