Ayuda macro para guardar archivos abiertos en formato xlsm a formato csv

Hola tengo varios archivos abiertos en formato xlsm pero necesito
guardarlos o ejecutar una macro que me los guarde en formato csv y que
no me dañe la estructura del archivo en una carpeta cualquiera pude
estar en mis documentos y asi no tener que ir guardando uno a uno los
archivos diciendo archivo guardar como csv me podrían ayudar con alguna
macro que haga esto gracias.

1 Respuesta

Respuesta
1

Espero estés de maravilla!

Te paso un código para que guardes tus archivos como CSV. Tené presente que los archivos donde vas a ejecutar esta macro solo pueden tener una hoja.

Sub GuardarComoCSV()
ActiveWorkbook.SaveAs Filename:="C:\Users\lucas.MAGNIFRESH\Desktop\Libro1.csv", FileFormat:=xlCSV, CreateBackup:=False
End Sub

Por favor tené presente que vas a tener que cambiar el nombre de la ruta de tu escritorio.

Bendiciones!

Lucas.

necesito ejecutar esta macro en 50 archivos a la vez y que no me cambie el nombre del archivo dime como hago y que me los guarden en mis documentos en una carpeta que se llama csv

Espero estés bien.

Te paso un código que guarda tu archivo en la ubicación que deseas y luego vuelve al Libro1.

Este código lo deberías pegar en todos tus archivos para luego poder ejecutarlo.

Sub GuardarCSV()
Ruta = "C:\Users\Mis Documentos\CSV"
Nombre = ThisWorkbook.Name
Archivo = Ruta & "\" & Nombre & ".csv"
ActiveSheet.SaveAs Filename:=Archivo, FileFormat:=xlCSV, CreateBackup:=False
Workbooks("Libro1.xls").Activate
End Sub

Bendiciones!

Lucas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas