亞寵展、全球寵物產業風向標——亞洲寵物展覽會深度解析
561
2024-01-15
如何使用時間戳保存Excel文件名？
如何使用時間戳保存Excel文件名？
您是否曾經嘗試使用當前時間戳保存Excel文件？ 本文將向您展示實現它的方法。
使用帶有VBA代碼的時間戳保存Excel文件名
使用帶有VBA代碼的時間戳保存Excel文件名
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
您可以運行下面的VBA代碼以使用時間戳保存Excel文件名。 請執行以下操作。
1.在工作簿中，您需要按當前時間戳進行命名，請按 其他 + F11 同時打開 Microsoft Visual Basic for Applications窗口。
2.在 Microsoft Visual Basic應用程序 窗口，請點擊 插頁 > 模塊。 然后將以下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
Copy
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
相關文章:
如何將工作表另存為PDF文件并將其作為附件通過Outlook通過電子郵件發送？
如何使用“另存為”功能自動覆蓋Excel中的現有文件？
如何在Excel中保存，導出多個/所有工作表到單獨的csv或文本文件？
如何在Excel中禁用或不允許“另存為”選項？
如何禁用工作簿保存，但只允許在Excel中另存為？
Copy
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
