วิธีใช้ฟังก์ชัน 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: ตรวจสอบว่าสมุดงานเปิดอยู่หรือไม่