Utiliza esta macro para registrar un historial de versiones
Hay muchos libros de trabajo que deben guardarse a intervalos fijos. Si siempre usa un nombre diferente, puede seguir exactamente qué datos se encontraron en el libro de trabajo en qué momento.
Es particularmente útil utilizar un sello de fecha y hora al guardar el archivo. Utiliza una combinación de fecha y hora como nombre de archivo. Por ejemplo, si el archivo se guarda el 27/08/2008 a las 10:32 y 26 segundos, el nombre del archivo es:
20080827-103226
La ventaja de este sello de fecha y hora es que la visualización de los archivos en orden alfabético (por ejemplo, con el Explorador de Windows) también se corresponde con el orden cronológico.
Definir manualmente los nombres de los archivos actuales requiere mucho tiempo y es propenso a errores. En su lugar, utilice la siguiente macro:
Sub WithTimestampSave ()
Marca de tiempo de fecha atenuada como cadena
Atenuar ahora como fecha
Ahora = Ahora ()
Sello de fecha y hora = año (fecha) y formato (mes (fecha), "00") y formato (día (fecha), "00")
Sello de fecha y hora = Sello de fecha y hora y "-" y formato (hora (ahora), "00") y formato (minutos (ahora), "00") y formato (segundo (ahora), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & sello de fecha & ".xls")
End Sub
Cuando llama a la macro, el libro de trabajo activo se guarda nuevamente en la ruta de almacenamiento anterior. El sello de fecha y hora se utiliza como nombre de archivo, como se muestra en la siguiente figura:
Si también desea incluir esta ventana en su macro, integre la siguiente línea de programa como una nueva línea separada delante de la línea End Sub:
MsgBox (ActiveWorkbook.Path)
