如何將 Excel 文件名加上時間戳保存？

您是否曾經嘗試過使用當前的時間戳保存 Excel 文件？本文將向您展示實現這一目標的方法。

使用 VBA 程式碼將 Excel 文件名加上時間戳保存

使用 VBA 程式碼將 Excel 文件名加上時間戳保存

您可以執行以下 VBA 程式碼，將 Excel 文件名加上時間戳保存。請按照以下步驟操作。

1. 在需要以當前時間戳命名的工作簿中，請同時按下 Alt + F11 鍵，打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，請點擊 插入 > 模組。然後將以下 VBA 程式碼複製到 程式碼 視窗中。參見截圖：

VBA 程式碼：將 Excel 文件名加上時間戳保存（用時間戳替換文件名）

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. 按下 F5 鍵執行程式碼。然後會彈出一個 「另存為」對話框，您可以在「文件名」框中看到顯示的時間戳。請指定保存該文件的位置，然後點擊「保存」按鈕。參見截圖：

注意：

1. 新創建的 Excel 文件將直接以當前時間戳作為文件名保存。

2. 對於那些已經存在的 Excel 文件，原始文件名將被時間戳取代。

如果您只想在原始文件名後面添加時間戳而不是替換它，請應用以下 VBA 程式碼。

VBA 程式碼：將 Excel 文件名加上時間戳保存（在原始文件名後插入時間戳）

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

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何將工作表保存為 PDF 文件並通過 Outlook 作為附件發送？
• 如何使用「另存為」功能自動覆蓋 Excel 中已有的文件？
• 如何在 Excel 中將多個/所有工作表保存或導出為單獨的 CSV 或文本文件？
• 如何在 Excel 中禁用或不允許「保存」和「另存為」選項？
• 如何在 Excel 中禁用工作簿保存但只允許「另存為」？