Guardar desde una macro cons distintos nombres
Hola, estoy creando una macro, esta la corro una vez al día. Necesito que cada día se guarde de manera automática con el "nombre" y la fecha en al que se esta guardando. Me pueden ayudar...
1 Respuesta
Respuesta de Elsa Matilde
1
Entiendo que lo que se tiene que guardar con nombre y fecha es el libro... no la macro.
Bien, esta es una manera para hacerlo. Entrá al Editor y seleccioná con doble click el objeto ThisWorkBook (o Este libro) y allí copiá la rutina.
No indicaste qué dato debe tomar por 'nombre', ajustá la línea.
Y la fecha tiene que ser con un formato apto para nombres de libros, no pueden ser los típicos separadores de fechas en forma de barra
Sdos y no olvides finalizar la consulta si el tema queda resuelto.
Bien, esta es una manera para hacerlo. Entrá al Editor y seleccioná con doble click el objeto ThisWorkBook (o Este libro) y allí copiá la rutina.
No indicaste qué dato debe tomar por 'nombre', ajustá la línea.
Y la fecha tiene que ser con un formato apto para nombres de libros, no pueden ser los típicos separadores de fechas en forma de barra
Sdos y no olvides finalizar la consulta si el tema queda resuelto.
Parece que olvidé la rutina, aquí va:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
nombre = "julio"
fecha = Format(Now, "ddmmyyyy")
'la línea sgte que dejo inhabilitada guardará el libro activo con el nuevo nombre
'ActiveWorkbook.SaveAs Filename:=nombre & fecha & ".xls"
'la sgte línea guarda una copia, con el nombre asignado, manteniendo el original.
ActiveWorkbook.SaveCopyAs Filename:=nombre & fecha & ".xls"
End Sub
Si todo quedó claro no olvides finalizar la consulta
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
nombre = "julio"
fecha = Format(Now, "ddmmyyyy")
'la línea sgte que dejo inhabilitada guardará el libro activo con el nuevo nombre
'ActiveWorkbook.SaveAs Filename:=nombre & fecha & ".xls"
'la sgte línea guarda una copia, con el nombre asignado, manteniendo el original.
ActiveWorkbook.SaveCopyAs Filename:=nombre & fecha & ".xls"
End Sub
Si todo quedó claro no olvides finalizar la consulta
