วิธีใช้ฟังก์ชัน filedatetime ใน vba (พร้อมตัวอย่าง)
คุณสามารถใช้ฟังก์ชัน FileDateTime ใน VBA เพื่อส่งคืนวันที่และเวลาที่ไฟล์ถูกสร้างหรือแก้ไขครั้งล่าสุด
นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:
SubCheckLastModify ()
Dim wb_name As String
wb_name = InputBox("Please enter the workbook name:")
MsgBox FileDateTime(wb_name)
End Sub
เมื่อดำเนินการแมโครนี้ กล่องป้อนข้อมูลจะปรากฏขึ้นโดยที่ผู้ใช้สามารถป้อนชื่อของสมุดงาน Excel
แมโครจะสร้างกล่องข้อความที่มีวันที่และเวลาที่สร้างหรือแก้ไขสมุดงานครั้งล่าสุด
ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ
ตัวอย่าง: วิธีใช้ฟังก์ชัน FileDateTime ใน VBA
สมมติว่าเรามีสมุดงาน Excel ชื่อ My_Workbook.xlsx อยู่ในตำแหน่งต่อไปนี้:
C:\Users\bob\Documents\my_workbook.xlsx
สมมติว่าเราต้องการตรวจสอบว่าเวิร์กบุ๊กนี้ถูกสร้างหรือแก้ไขครั้งล่าสุดเมื่อใด
เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:
SubCheckLastModify ()
Dim wb_name As String
wb_name = InputBox("Please enter the workbook name:")
MsgBox FileDateTime(wb_name)
End Sub
เมื่อเราเรียกใช้แมโครนี้ กล่องจะปรากฏขึ้นโดยที่ฉันสามารถป้อนเส้นทางไปยังสมุดงานในกล่องป้อนข้อมูลได้:
เมื่อฉันคลิก OK มาโครจะสร้างกล่องข้อความต่อไปนี้:
มาโครบอกเราว่าสมุดงานได้รับการแก้ไขครั้งล่าสุดเมื่อ 28/07/2023 เวลา 9:27:01 น .
โปรดทราบว่าถ้าคุณต้องการเฉพาะวันที่ที่ไฟล์ถูกแก้ไข คุณสามารถล้อมฟังก์ชัน FileDateTime ด้วยฟังก์ชัน DateValue ได้ดังนี้:
SubCheckLastModify ()
Dim wb_name As String
wb_name = InputBox("Please enter the workbook name:")
MsgBox DateValue(FileDateTime(wb_name))
End Sub
ตอนนี้ เมื่อคุณเรียกใช้แมโครและป้อนเส้นทางของไฟล์ กล่องข้อความจะแสดงเฉพาะวันที่ที่แก้ไขฟิลด์ครั้งล่าสุดโดยไม่มีเวลา:
หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับสมบูรณ์ของฟังก์ชัน FileDateTime ใน VBA ได้ที่นี่
แหล่งข้อมูลเพิ่มเติม
บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:
VBA: วิธีนับจำนวนแผ่นงานในสมุดงาน
VBA: วิธีบันทึกและปิดสมุดงาน
VBA: ตรวจสอบว่าสมุดงานเปิดอยู่หรือไม่