¿Cómo guardar un nombre de archivo de Excel con marca de tiempo?
¿Alguna vez ha intentado guardar un archivo de Excel con la marca de tiempo actual? Este artículo le mostrará el método para lograrlo.
Guarde un nombre de archivo de Excel con marca de tiempo con código VBA
Guarde un nombre de archivo de Excel con marca de tiempo con código VBA
Puede ejecutar el siguiente código VBA para guardar un nombre de archivo de Excel con marca de tiempo. Haz lo siguiente.
1. En el libro de trabajo, debe nombrarlo por la marca de tiempo actual, presione el otro + F11 teclas simultáneamente para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie el siguiente código VBA en el Código ventana. Ver captura de pantalla:
Código de VBA: guarde un nombre de archivo de Excel con marca de tiempo (reemplace el nombre del archivo con marca de tiempo)
Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
3. presione el F5 clave para ejecutar el código. Entonces un Guardar como aparece el cuadro de diálogo emergente, puede ver la marca de tiempo que se muestra en el cuadro Nombre de archivo. Especifique una ubicación para guardar este archivo y luego haga clic en el Guardar botón. Ver captura de pantalla:
Notas:
1. El nuevo archivo de Excel creado se guardará directamente con el nombre de la marca de tiempo actual.
2. Para los archivos de Excel que ya existen, el nombre del archivo original se reemplazará con la marca de tiempo.
Si solo desea agregar una marca de tiempo seguida del nombre del archivo original en lugar de reemplazarlo, aplique el siguiente código VBA.
Código de VBA: guarde un nombre de archivo de Excel con marca de tiempo (Insertar marca de tiempo seguida del nombre de archivo original)
Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
Artículos relacionados:
- ¿Cómo guardar una hoja de trabajo como archivo PDF y enviarla por correo electrónico como archivo adjunto a través de Outlook?
- ¿Cómo usar la función Guardar como para sobrescribir automáticamente un archivo existente en Excel?
- ¿Cómo guardar, exportar varias / todas las hojas a archivos csv o de texto separados en Excel?
- ¿Cómo deshabilitar o no permitir las opciones Guardar y Guardar como en Excel?
- ¿Cómo deshabilitar el guardado del libro de trabajo pero solo permitir guardar como en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!