Como hacer macro paso a paso de xsl a txt csv
He visto una macro que facilita el proceso de convertir datos de una página excel a un txt delimitado por comas, pero se muy poco de macros y agradecería mucho que alguien me explique como hacerlo paso a paso
1 respuesta
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
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- 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”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CrearCsv
- Aceptar.
- 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
Prueba con la siguiente macro:
Sub CrearCsv() 'Por.Dante Amor ruta = "C:\" 'directorio para guardar el archivo nomb = "archivo.txt" 'nombre del archivo hoja = "ventas abril" '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
El archivo lo va a guardar directamente en C:\
El nombre del archivo será: archivo.txt
Tienes que tener una hoja llamada "ventas abril"
NO modifiques la macro, solamente ejecuta la macro.
