Excel में सभी बाहरी रूप से लिंक किए गए फ़ोल्डरों की सूची कैसे प्राप्त करें
क्या आप जानना चाहेंगे कि किसी तालिका में किन कार्यपुस्तिकाओं के बाहरी लिंक हैं? मैक्रो नियंत्रण के तहत उपयुक्त तालिका बनाने के लिए निम्नलिखित मैक्रो का उपयोग करें:
सूची उप लिंक ()
वर्कशीट के रूप में डिम न्यूटेबल
वेरिएंट के रूप में मंद सूची
डिम आई अस इंटीजर
स्ट्रिंग के रूप में मंद करें
सूची = ActiveWorkbook.Link स्रोत (xlExcelLinks)
यदि खाली नहीं है (सूची) तो
न्यूटेबल सेट करें = ActiveWorkbook.Worksheets.Add
i = 1 के लिए UBound (सूची) के लिए
NewTable.Cells (i, 1) = सूची (i)
अगला मैं
अन्यथा
a = MsgBox ("कोई शॉर्टकट नहीं मिला!", vbOKOnly, "नोट")
अगर अंत
अंत उप
मैक्रो सक्रिय कार्यपुस्तिका में एक नई, खाली तालिका बनाता है और उन सभी कार्यपुस्तिकाओं को सूचीबद्ध करता है जो बाह्य रूप से कक्षों में लिंक की गई हैं। प्रत्येक पथ केवल एक बार दिखाई देता है - इसलिए आपको इस तरह का एक संक्षिप्त अवलोकन मिलता है जैसा कि निम्न आकृति में दिखाया गया है:
यदि कोई बाहरी लिंक नहीं मिलता है, तो एक्सेल इसे संबंधित विंडो के साथ इंगित करेगा:
मैक्रो LinkSources संग्रह का उपयोग करता है। इस सूची में अलग-अलग प्रविष्टियां एक नई कार्यपत्रक में कक्षों में स्थानांतरित की जाती हैं।
