Macro que guarde una copia de un archivo de excel
Crear un macro que guarde una copia del archivo de Excel donde estoy trabajando en la misma carpeta donde tengo el archivo original sin que se me cambie el nombre del archivo original.
2 Respuestas
Para realizar una copia y mantenerte en el libro original, esta macro te servirá. Solo debes ajustar la línea para establecer el nombre deseado a la copia.
Sub conCopia() 'x Elsamatilde 'asignar un nombre para la copia- AJUSTAR nbre = "Copia_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & nbre End Sub
Si esta respuesta resuelve tu consulta no olvides valorarla.
¡Gracias!
La variable 'nbre' te permite armar el texto o nombre que necesites.
Por ej:
nbre = "Copia_" & Sheets("Hoja1").Range("A4") & ".xlsm"
Debes tener presente de:
- Incluir la extensión que tiene el libro que se guarda (al ser copia del original será la misma extensión)
- Que el contenido de la celda sea un dato apto para nombres de libros. Si se trata de una fecha con barras hay que convertirlas... por favor si este es el caso dejame una nueva consulta en el tablón con este tema puntual.
Sdos!
¡Gracias! , funciona excelente, nuevamente gracias por su colaboración. Que mi Dios me la bendiga.
Elsa, muy buenas, el macro me ha funcionado correctamente, pero si quiero guardar la copia del libro original pero que la copia no sea una extensión habilitada para macros, en pocas palabras que la copia tenga deshabilitado los macros. Espero su colaboración, de antemano muchas gracias.
La extensión '.xlsx' te guarda el libro sin macros.
Sdos!
Prueba con esto, para un libro con macros:
Sub GuardarConMacros() nombreCopia = "El nombre con el que quieras guardar la copia del libro" ActiveWorkbook.SaveAs nombreCopia, xlOpenXMLWorkbookMacroEnabled End Sub
Y esto para un libro sin macros
Sub GuardarSinMacros() nombreCopia = "El nombre con el que quieras guardar la copia del libro" ActiveWorkbook.SaveAs nombreCopia End Sub
Si te ha valido la respuesta.
Mil gracias, ElsaMatilde, me ha funcionado de maravilla, como es que debo usar este segundo macro que me envías, abusando de tu enorme disponibilidad, podrías anexarlo de tal manera que con un botón pueda cuardarlo como lo explicas el original me gustaría conservarlo como plantilla maestra y así utilizarlo con otro tipo de preformas, recibos, constancias, vales de dinero etc... - darkito64
Excelente, muchas gracias Elsa Matilde funciono perfecto. Si no es ninguna molestia también quisiera que al guardar la copia se guardara con el nombre de una celda, ejemplo la A1 u otra, como seria. Muchas gracias, - Jose Martinez