วิธีบันทึกชื่อไฟล์ Excel ด้วยการประทับเวลา?

คุณเคยพยายามบันทึกไฟล์ Excel ด้วยการประทับเวลาปัจจุบันหรือไม่? บทความนี้จะแสดงวิธีการเพื่อให้บรรลุ

บันทึกชื่อไฟล์ Excel พร้อมประทับเวลาด้วยรหัส VBA

บันทึกชื่อไฟล์ Excel พร้อมประทับเวลาด้วยรหัส VBA

คุณสามารถเรียกใช้โค้ด 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

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

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• วิธีบันทึกแผ่นงานเป็นไฟล์ PDF และส่งอีเมลเป็นไฟล์แนบผ่าน Outlook?
• วิธีใช้ฟังก์ชัน Save As เพื่อเขียนทับไฟล์ที่มีอยู่ใน Excel โดยอัตโนมัติ
• วิธีบันทึกส่งออกหลายแผ่น / ทั้งหมดเพื่อแยกไฟล์ csv หรือไฟล์ข้อความใน Excel
• จะปิดหรือไม่อนุญาตตัวเลือก Save & Save As ใน Excel ได้อย่างไร
• วิธีปิดการใช้งานสมุดงานบันทึก แต่อนุญาตให้บันทึกเป็นใน Excel เท่านั้น