Vba का उपयोग करके कार्यपुस्तिका का नाम कैसे प्राप्त करें (उदाहरण के साथ)

Excel कार्यपुस्तिका का नाम प्राप्त करने के लिए आप VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: सक्रिय कार्यपुस्तिका का नाम प्राप्त करें

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

यह फ़ंक्शन सक्रिय कार्यपुस्तिका का नाम जैसे my_vba_workbook.xlsm लौटाएगा।

विधि 2: बिना एक्सटेंशन के सक्रिय कार्यपुस्तिका नाम प्राप्त करें

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

यह फ़ंक्शन my_vba_workbook जैसे एक्सटेंशन के बिना सक्रिय कार्यपुस्तिका का नाम लौटाएगा।

निम्नलिखित उदाहरण दिखाते हैं कि वर्तमान में सक्रिय एक्सेल वर्कबुक जिसे my_vba_workbook.xlsm कहा जाता है, के साथ अभ्यास में प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: सक्रिय कार्यपुस्तिका का नाम प्राप्त करें

सक्रिय कार्यपुस्तिका का नाम प्राप्त करने के लिए हम निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

सक्रिय कार्यपुस्तिका का नाम प्राप्त करने के लिए हम सेल A1 में निम्नलिखित सूत्र टाइप कर सकते हैं:

 =GetWorkbookName()

निम्नलिखित स्क्रीनशॉट दिखाता है कि व्यवहार में इस सूत्र का उपयोग कैसे करें:

हम देख सकते हैं कि सूत्र my_vba_workbook.xlsm लौटाता है, जो कि वर्तमान में सक्रिय कार्यपुस्तिका का नाम है जिसका हम उपयोग कर रहे हैं।

ध्यान दें : .xlsm एक्सटेंशन मैक्रो-सक्षम Excel कार्यपुस्तिका का प्रतिनिधित्व करता है।

उदाहरण 2: बिना एक्सटेंशन के सक्रिय कार्यपुस्तिका नाम प्राप्त करें

हम एक्सटेंशन के बिना सक्रिय कार्यपुस्तिका का नाम प्राप्त करने के लिए निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

सक्रिय कार्यपुस्तिका का नाम प्राप्त करने के लिए हम सेल A1 में निम्नलिखित सूत्र टाइप कर सकते हैं:

 =GetWorkbookName()

निम्नलिखित स्क्रीनशॉट दिखाता है कि व्यवहार में इस सूत्र का उपयोग कैसे करें:

हम देख सकते हैं कि सूत्र my_vba_workbook लौटाता है, जो .xlsm एक्सटेंशन के बिना वर्तमान में सक्रिय कार्यपुस्तिका का नाम है।

ध्यान दें : लेफ्ट और इंस्ट्र फ़ंक्शंस का उपयोग करके, हम कार्यपुस्तिका के नाम से बिंदु के बाईं ओर के सभी वर्ण निकाल सकते हैं।

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

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

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