Vba में filedatetime फ़ंक्शन का उपयोग कैसे करें (उदाहरण के साथ)

किसी फ़ाइल के बनने या अंतिम बार संशोधित होने की तारीख और समय बताने के लिए आप VBA में FileDateTime फ़ंक्शन का उपयोग कर सकते हैं।

इस फ़ंक्शन को व्यवहार में उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

जब यह मैक्रो निष्पादित होता है, तो एक इनपुट बॉक्स दिखाई देगा जहां उपयोगकर्ता एक्सेल वर्कबुक का नाम दर्ज कर सकता है।

इसके बाद मैक्रो एक संदेश बॉक्स तैयार करेगा जिसमें उस विशेष कार्यपुस्तिका के निर्माण या अंतिम बार संशोधित होने की तारीख और समय शामिल होगा।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA में FileDateTime फ़ंक्शन का उपयोग कैसे करें

मान लें कि हमारे पास My_Workbook.xlsx नामक एक Excel कार्यपुस्तिका निम्नलिखित स्थान पर स्थित है:

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

एक बार जब हम इस मैक्रो को चलाएंगे, तो एक बॉक्स दिखाई देगा जहां मैं इनपुट बॉक्स में कार्यपुस्तिका का पथ दर्ज कर सकता हूं:

एक बार जब मैं ओके पर क्लिक करता हूं, तो मैक्रो निम्नलिखित संदेश बॉक्स उत्पन्न करेगा:

मैक्रो हमें बताता है कि कार्यपुस्तिका को अंतिम बार 07/28/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

अब, जब आप मैक्रो चलाते हैं और फ़ाइल पथ दर्ज करते हैं, तो संदेश बॉक्स केवल वह तारीख दिखाएगा जब फ़ील्ड को अंतिम बार समय के बिना संशोधित किया गया था:

नोट : आप VBA में FileDateTime फ़ंक्शन का संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: किसी कार्यपुस्तिका को कैसे सहेजें और बंद करें
वीबीए: जांचें कि कार्यपुस्तिका खुली है या नहीं