सभी मैक्रोज़ को एक कार्यपुस्तिका से दूसरी कार्यपुस्तिका में कैसे निर्यात करें?

यदि आपको एक कार्यपुस्तिका से दूसरी कार्यपुस्तिका में एकाधिक मैक्रो वीबीए कोड निर्यात करने की आवश्यकता है, तो आप उन्हें सामान्य रूप से एक-एक करके कॉपी कर सकते हैं। लेकिन इसमें समय लगेगा, इस लेख में मैं इस बारे में बात करूंगा कि सभी मैक्रोज़ को एक कार्यपुस्तिका से दूसरे में कैसे जल्दी से निर्यात किया जाए और मैक्रो फ़ाइलों को एक विशिष्ट फ़ोल्डर में कैसे सहेजा जाए।

VBA कोड के साथ सभी मैक्रोज़ को एक कार्यपुस्तिका से दूसरे में निर्यात करें

---

VBA कोड के साथ सभी मैक्रोज़ को एक कार्यपुस्तिका से दूसरे में निर्यात करें

सभी मैक्रो वीबीए कोड को एक एक्सेल फ़ाइल से दूसरे में निर्यात करने के लिए, कृपया निम्नलिखित चरणों का पालन करें:

1. सबसे पहले, आपको एक ही समय में दो कार्यपुस्तिकाएँ खोलनी चाहिए, एक में मैक्रोज़ हैं, दूसरे में वह है जिसमें आप मैक्रोज़ निर्यात करना चाहते हैं, स्क्रीनशॉट देखें:

ऑफिस टैब-एक ही टैब वाली विंडो में कई ऑफिस दस्तावेज़ खोलें, पढ़ें, संपादित करें और प्रबंधित करें Office Tab Microsoft Office अनुप्रयोगों की टैब्ड ब्राउज़िंग, संपादन और प्रबंधन को सक्षम बनाता है। आप एक ही टैब वाली विंडो में कई दस्तावेज़/फ़ाइलें खोल सकते हैं, जैसे ब्राउज़र IE 8/9/10, फ़ायरफ़ॉक्स और Google Chrome का उपयोग करना। अभी डाउनलोड करने और निःशुल्क परीक्षण करने के लिए क्लिक करें!

2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मापांक, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: सभी मैक्रोज़ को एक कार्यपुस्तिका से दूसरे में निर्यात करें:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

नोट: उपरोक्त कोड में, "पुरानी कार्यपुस्तिका"कार्यपुस्तिका का नाम है जिससे आप मैक्रोज़ निर्यात करना चाहते हैं, और"नई-कार्यपुस्तिका” वह कार्यपुस्तिका है जिसे आप मैक्रोज़ आयात करना चाहते हैं। आपको नाम बदलकर अपना रख लेना चाहिए. दोनों की दोनों कार्यपुस्तिकाएं होनी चाहिए xlsm फाइल प्रारूप।

4. उपरोक्त कोड को पेस्ट करने के बाद दबाएँ F5 इस कोड को चलाने के लिए कुंजी, और a ब्राउज विंडो प्रदर्शित होती है, कृपया निर्यात की गई मैक्रो फ़ाइलों को रखने के लिए एक फ़ोल्डर चुनें, स्क्रीनशॉट देखें:

5। तब दबायें OK बटन, और सभी मैक्रोज़ को आपकी निर्दिष्ट कार्यपुस्तिका से किसी अन्य एक्सेल फ़ाइल में निर्यात कर दिया गया है, और मैक्रो फ़ाइलों को विशिष्ट फ़ोल्डर में भी सहेजा गया है। स्क्रीनशॉट देखें:

नोट: यह कोड केवल सामान्य मॉड्यूल से मैक्रोज़ निर्यात कर सकता है।