Guardar archivo .xlsm en otra ruta como .xls
Necesito una macro para guardar un archivo que esta con formato .xlsm, que en este se ejecute la macro. Y que lo guarde en otra ruta o carpeta como archivo .xls
1 Respuesta
Esto te servirá:
Sub guardar()
libro = ActiveWorkbook.Name
nombre = Left(libro, Len(libro) - 4)
ActiveWorkbook.SaveAs Filename:="C:\users\usuario\desktop\" & nombre & ".xls", FileFormat:=xlExcel8
End Sub
Deberás cambiar la ruta en negrita por la que necesites (no te olvides el último \)
Muchas gracias es lo que necesito, solo unas cosas más; para guardarlo como .xlsx solo tengo que cambiar así:
ActiveWorkbook.SaveAs Filename:="C:\users\usuario\desktop\" & nombre & ".xlsx", FileFormat:=xlExcel8
o tengo que cambiar algo mas?
Como puedo hacer para que el nuevo documento que se guarde como .xlsx se guarde como solo lectura para que nadie pueda modificarlo.
Gracias nuevamente.
También tienes que cambiar el formato:
http://www.rondebruin.nl/win/s5/win001.htm
51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)
Entonces para proteger y guardar en xlsx es:
ActiveWorkbook.SaveAs Filename:="C:\users\usuario\desktop\" & nombre & ".xlsx", FileFormat:=xlOpenXMLWorkbook, WriteResPassword:="password", ReadOnlyRecommended:=False, CreateBackup:=False
