كيفية استخدام وظيفة 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

بمجرد تشغيل هذا الماكرو، سيظهر مربع حيث يمكنني إدخال المسار إلى المصنف في مربع الإدخال:

بمجرد النقر فوق “موافق” ، سينتج عن الماكرو مربع الرسالة التالية:

يخبرنا الماكرو أنه تم تعديل المصنف آخر مرة في 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: تحقق مما إذا كان المصنف مفتوحًا