Macro pasar archivo xlsm a csv

[anfegam]

Buenos dias tengo 200 archivos con extencion xlsm y necesito pasar cada uno a formato csv esto lo estoy haciendo manualmente con cada archivo desde la barra de herramientas de excel asi archivo guardar como csv, por lo tanto me demanda mucho hacerlo entonces lo ideal seria una macro que se ejecute en los 200 libros abiertos me convierta todo a formato csv, pongo los dos formatos el original xlsm y el csv como debe de quedar ya qye he probado varias macros que estan en la web pero me desordena la estructura del encabezado entonces pido por favor su ayuda de alguien que sepa de esto.

gracias

Archi.rar

[Edgar Prisciliano]

Buen día.

[uSER=45964]@anfegam[/uSER] tus 200 archivos están en libros separados o los tiene en un solo archivo pero en diferentes pestañas ya que yo tengo un código para realizar este tipo de conversiones que te podrían funcionar.

Saludos

[anfegam]

hola son libros separados

[Edgar Prisciliano]

Buen día.

Prueba el archivo adjunto, descomprimes y pegas la carpeta completa en la unidad C:\, dentro de la carpeta Archi pega algunos archivos que quieras convertir y abres el archivo "Convertidor.xlsm" después ejecutas la macro CopiarPegar y revisas los resultados dentro de la carpeta Archivos CSV.

PD: Como sugerencia solo ten abierto el archivo "Convertidor.xlsm"

Saludos

Archi.rar

[anfegam]

Hola abro el archivo convertidor y tiene dos macros copiar y pegar y exportar delimitado le doy click a copiar y pegar y no me hace nada voy a verificar si paso los archivos y no me los paso y luego ejecuto la otra macro y me sale un error en

Open Ruta For Output As intFich

me puedes dar un correo para yo enviarte varios archivos para que tu hagas la prueba gracias ya que por aca no puedo poner tabtos archivos

[Edgar Prisciliano]

Buen dia.

[uSER=45964]@anfegam[/uSER] te adjunto el archivo modificado, la macro no procesaba nada ya que el archivo que subiste era extencion xlsx y los que me enviaste por correo son xlsm, en la carpeta Archi encontraras dos subcarpetas, en la de Archivo por los archivos que quieres convertir y en el Archios CSV estaran los archivos convertidos, manda a llamar la macro con el botón desde el archivo Convertidor.xlsm.

PD: Recuerda colocar toda la carpeta Archi en la unidad C:\

Cualquier detalle me comentas.

saludos.

Archi.rar

[anfegam]

Hola que pena contigo hago todo como dices y cuando ejecuto la macro no me funciona mira yo estoy haciendo lo siguiente

copio en la carpeta archivos los archivos a convertir kuego abro el archivo convertidor y le doy click en generar y no me funciona agradezco tu ayuda

esa macro que me envias sirve para cualquier version de office me explico 2007 y 2010

[Edgar Prisciliano]

Buen día.

Revisa lo siguiente :

Tu carpeta que descomprime debe de estar en C:\

Revisa que tengas habilitado la ejecución de macros

Que tus archivos que pongas en la carpeta C:\Archi\Archivos \ tengan la extensión .xlsm

Saludos

[anfegam]

mira la rura donde quedo copiado la carpeta archi esta en

C:\Archi\Archi\Archivos

yo uso win 7 el error cuando ejecuto la macro es la linea

Set Carpeta = MiPc.GetFolder(Range("B1").Value)

sera porque dice mi pc

[Edgar Prisciliano]

Buen día.

La ruta correcta es C:\Archi\Archivos es por eso que te marca error en esa linea porque la macro busca los archivos en el link que esta en la celda B1.

La carpeta tal cual la descomprime la debes de pegar en C:\ sin ninguna carpeta mas.

Cambia el archivo Convertidor por el que te adjunto para que no te pida confirmación de guardar los archivos que procesas.

Me comentas.

Saludos.

Convertidor.rar

[anfegam]

Hola si me funciono pero mira que con tu macro me desorganiza los encabezados has la prueba si lo haces manual mente archivo guardar como csv el encabezado queda bueno pero si lo haces con tu macro el encabezado queda mal mira, con tu macro empieza a desorganizar el encabezado desde la colomna AK los nombres lo pone en la columna B en la fila 2 y asi sucesivamete has la prueba

[anfegam]

edgar mirando tengo una solucion al problema que tengo pero seria otra macro no se si se puede meter en la macro que tu hiciste mira la solucion seria asi_

Seleccionar la fila 2 desde b2 hasta CS 2 cortar lo que esta ahi y pegarlo en la celda AK 1 hasta cs1 y asi sucesivamente en las celdas hasta llegar a la celda CS1 como la fila 2 queda vacia eliminarla y asi si queda el archivo bien con la estructura como es

[Edgar Prisciliano]

Buenas noches.

Que tal amigo [uSER=45964]@anfegam[/uSER] una disculpa he estado ocupado en el trabajo y ya no pude darle seguimiento al tema, mañana si me desocupo un rato reviso nuevamente para ver cual es el error y te comento.

Saludos.

[Fleming]

???