VBA - क्लिक करने योग्य लिंक में फ़ाइल नाम आयात करें

यह एक मैक्रो है जो एक उपयोगकर्ता को कई फाइलों का चयन करने और उनके फ़ाइल नामों को एक स्प्रेडशीट में क्लिक करने योग्य लिंक के रूप में आयात करने की अनुमति देता है।

मैंने इस मैक्रो के लिए प्रेरणा के रूप में एमपी 3 समस्या का उपयोग किया, हालांकि मैंने केवल एक पूर्ण एमपी 3 समाधान विकसित करने के संकेत दिए।

निम्नलिखित मैक्रो निम्नलिखित करता है:
1. एक सामान्य संवाद बॉक्स दिखाता है
2. उपयोगकर्ता को एकाधिक एमपी3 फ़ाइलें चुनने की अनुमति देता है (उदाहरण के लिए आप इसे किसी भी फ़ाइल प्रकार में बदल सकते हैं, *.mpg)
3. चयनित फ़ाइल नामों को आपकी स्प्रैडशीट में क्लिक करने योग्य लिंक में आयात करता है (शीट 1)

निम्नलिखित मैक्रो जानबूझकर नहीं करता है:
1. एक एमपी३ फ़ाइल के लिए खेलने का समय दिखाएँ
मुझे इसके लिए एक एपीआई समाधान मिला, हालांकि शायद एक बेहतर तरीका है

2. कोई भी टैग जानकारी (कलाकार, वर्ष, शैली, आदि) दिखाएं।
एमपी3 को बाइनरी के रूप में पढ़ें, मेरे लिए नया लेकिन बहुत अच्छा काम किया

3. एक से अधिक निर्देशिका से आयात की अनुमति दें
यह वर्तमान में पुराने डेटा पर लिखता है

मैं एक्सेल में क्लिक करने योग्य लिंक पर फ़ाइल नाम आयात करने पर एक टेक प्रस्तुत करता हूं।

सार्वजनिक उप आयातMP3 ()

पूर्णांक के रूप में मंद काउंटर
डिम पाथनाम वैरिएंट के रूप में
स्ट्रिंग के रूप में मंद एमपी३नाम

शीट 1. सेल। 'पुराना डेटा साफ़ करें' साफ़ करें

'mp3' प्राप्त करें
PathName = Application.GetOpenFilename _
("MyMusic (*.mp3), *.mp3", , "My mp3 Selector", , True)

काउंटर = 1

एरर गो टू कैंसल 'कैंसल बटन के मामले में'

'चयनित फाइलों के माध्यम से लूप'
जबकि काउंटर <= UBound(PathName) 'पथ से फ़ाइल नाम प्राप्त करें MP3name = Mid(PathName(counter), _ InStrRev(PathName(counter), "\") + 1) 'हाइपरलिंक शीट 1 बनाएं। सेल (काउंटर, 1) _। हाइपरलिंक्स। एंकर जोड़ें: = शीट १। सेल (काउंटर, १), _ पता: = पथनाम (काउंटर), टेक्स्ट टूडिस्प्ले: = एमपी३नाम काउंटर = काउंटर + १ वेंड कॉलम ("ए: ए")। संपूर्ण कॉलम। ऑटोफिट रद्द करें: एंड सब