वीबीए: सभी खुली कार्यपुस्तिकाओं की सूची कैसे प्राप्त करें

आप सभी खुली एक्सेल कार्यपुस्तिकाओं की सूची प्राप्त करने के लिए वीबीए में प्रत्येक लूप के लिए उपयोग कर सकते हैं।

व्यवहार में ऐसा करने का एक सामान्य तरीका यहां दिया गया है:

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

यह विशेष मैक्रो एक संदेश बॉक्स उत्पन्न करेगा जिसमें सभी खुली एक्सेल कार्यपुस्तिकाओं की सूची होगी।

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

उदाहरण: VBA का उपयोग करके सभी खुली कार्यपुस्तिकाओं की सूची प्राप्त करें

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

• बेसबॉल_डेटा.xlsx
• फ़ुटबॉल_डेटा.xlsx
• हॉकी_डेटा.xlsx

मान लीजिए कि हम इन सभी खुली कार्यपुस्तिकाओं के नाम सूचीबद्ध करने के लिए VBA का उपयोग करना चाहते हैं।

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

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

संदेश बॉक्स प्रत्येक खुली कार्यपुस्तिका के नाम प्रदर्शित करता है, प्रत्येक अद्वितीय कार्यपुस्तिका अपनी पंक्ति में सूचीबद्ध होती है।

ध्यान दें कि हमने कैरिएज रिटर्न डालने के लिए प्रत्येक लूप के लिए vbCrLf स्थिरांक का उपयोग किया है, जो कर्सर को अगली पंक्ति में ले जाता है।

इससे हमें संदेश बॉक्स में प्रत्येक खुली कार्यपुस्तिका को उसकी अपनी पंक्ति में सूचीबद्ध करने की अनुमति मिली।

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

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

VBA का उपयोग करके किसी फ़ाइल का नाम कैसे बदलें
VBA का उपयोग करके किसी फ़ोल्डर में फ़ाइलों को कैसे सूचीबद्ध करें
VBA का उपयोग करके किसी फ़ोल्डर की सभी फ़ाइलें कैसे खोलें
VBA का उपयोग करके कैसे जांचें कि फ़ाइल मौजूद है या नहीं