वीबीए: जांचें कि क्या कार्यपुस्तिका खुली है (उदाहरण के साथ)

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

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

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

• “फ़ाइल खुली है”
• “फ़ाइल खुली नहीं है”

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

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

मान लीजिए कि वर्तमान में हमारे पास निम्नलिखित नामों से दो कार्यपुस्तिकाएँ खुली हैं:

• my_workbook1.xlsx
• my_workbook2.xlsx

मान लीजिए कि हम यह जांचना चाहते हैं कि my_workbook1.xlsx नामक कार्यपुस्तिका वर्तमान में खुली है या नहीं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

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

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

मैक्रो यह इंगित करने के लिए “कार्यपुस्तिका खुली है” सही ढंग से प्रदर्शित करता है कि उस नाम वाली कार्यपुस्तिका वर्तमान में खुली है।

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

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

मैक्रो यह इंगित करने के लिए “कार्यपुस्तिका खुली नहीं है” सही ढंग से प्रदर्शित करता है कि उस नाम वाली कोई कार्यपुस्तिका वर्तमान में खुली नहीं है।

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

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

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: एकाधिक कॉलम कैसे सम्मिलित करें
वीबीए: एकाधिक पंक्तियाँ कैसे सम्मिलित करें