एकाधिक कार्यपुस्तिका फ़ाइलों में एक ही समय में मैक्रो कैसे चलाएं?
इस लेख में, मैं एक ही समय में एकाधिक कार्यपुस्तिका फ़ाइलों को खोले बिना मैक्रो को चलाने के तरीके के बारे में बात करूंगा। एक्सेल में इस कार्य को हल करने में निम्नलिखित विधि आपकी मदद कर सकती है।
VBA कोड के साथ एकाधिक कार्यपुस्तिकाओं में एक ही मैक्रो चलाएँ
VBA कोड के साथ एकाधिक कार्यपुस्तिकाओं में एक ही मैक्रो चलाएँ
एकाधिक कार्यपुस्तिकाओं को खोले बिना उनमें मैक्रो चलाने के लिए, कृपया निम्नलिखित VBA कोड लागू करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: एक ही समय में एकाधिक कार्यपुस्तिकाओं पर एक ही मैक्रो चलाएँ:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
नोट: उपरोक्त कोड में, कृपया बिना अपना कोड कॉपी और पेस्ट करें उप शीर्षक और अंत उप के बीच पाद लेख Workbooks.Open(xFdItem और xFileName) के साथ और के साथ समाप्त करना स्क्रिप्ट. स्क्रीनशॉट देखें:
3। फिर दबायें F5 इस कोड को निष्पादित करने की कुंजी, और a ब्राउज विंडो प्रदर्शित होती है, कृपया एक फ़ोल्डर चुनें जिसमें वे कार्यपुस्तिकाएँ हों जिनमें आप इस मैक्रो को लागू करना चाहते हैं, स्क्रीनशॉट देखें:
4. और फिर क्लिक करें OK बटन, वांछित मैक्रो एक कार्यपुस्तिका से दूसरे कार्यपुस्तिका में तुरंत निष्पादित हो जाएगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!