Como grabar una planilla automáticamente
Hola, gracias por su tiempo.
Tengo una planilla excel que necesito guardarla con el nombre del dato que contiene en una celda, y que lo asume automáticamente con la función hoy()
Es decir que la planilla que abro hoy ( 3-03-2010), necesito guardarla automáticamente con ese nombre 3-03-2010, con una macro.
Tengo una planilla excel que necesito guardarla con el nombre del dato que contiene en una celda, y que lo asume automáticamente con la función hoy()
Es decir que la planilla que abro hoy ( 3-03-2010), necesito guardarla automáticamente con ese nombre 3-03-2010, con una macro.
1 Respuesta
Respuesta de Elsa Matilde
1
Te separé en una cadena cada parte del nombre del libro, para que lo ajustes a tu caso: ruta o carpeta, nombre de archivo, extensión.
Thisworkbook. Path indica la carpeta activa. Podes utilizar otra ruta, siempre completa desde "C:\...."
Como la fecha generalmente se guardan con barras (aunque la veas con guiones), es que le asigno especialmente ese formato.
Utilicé el evento BeforeClose, es decir que al cerrar se guardará con ese nombre. Las 2 instrucciones pueden ir en otro evento, quizás tengas un botón de guardado:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
cadena = ThisWorkbook.Path & "\" & Format(Sheets("Hoja1").Range("A3"), "dd-mm-yy") & ".xls"
ActiveWorkbook.SaveAs cadena
End Sub
Thisworkbook. Path indica la carpeta activa. Podes utilizar otra ruta, siempre completa desde "C:\...."
Como la fecha generalmente se guardan con barras (aunque la veas con guiones), es que le asigno especialmente ese formato.
Utilicé el evento BeforeClose, es decir que al cerrar se guardará con ese nombre. Las 2 instrucciones pueden ir en otro evento, quizás tengas un botón de guardado:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
cadena = ThisWorkbook.Path & "\" & Format(Sheets("Hoja1").Range("A3"), "dd-mm-yy") & ".xls"
ActiveWorkbook.SaveAs cadena
End Sub
