कभी-कभी हमें एक नई रिपोर्ट या समेकित डेटा फ़ाइल बनाने के लिए विभिन्न एक्सेल कार्यपुस्तिकाओं से शीट को संयोजित करने की आवश्यकता होती है। ऐसा ऑपरेशन मानक MS Excel टूल का उपयोग करके मैन्युअल रूप से किया जा सकता है, लेकिन इसमें बहुत समय और प्रयास लग सकता है। आइए विचार करें कि हम इस प्रक्रिया को कैसे स्वचालित कर सकते हैं और रिपोर्ट के साथ काम में तेजी ला सकते हैं।
उदाहरण के लिए, हमारे पास कई कार्यपुस्तिकाएँ Excel हैं, और हम सभी कार्यपुस्तिकाओं से कार्यपत्रकों को एक फ़ाइल में एकत्रित करना चाहते हैं। ऐसा करने के लिए, वह कार्यपुस्तिका खोलें जहाँ आप सभी शीट एकत्र करना चाहते हैं और निम्नलिखित मैक्रो कोड जोड़ें।
खुली Excel कार्यपुस्तिका में जहाँ आप सभी शीट एकत्र करना चाहते हैं, Visual Basic Editor (Alt+F11) खोलें, VBA मॉड्यूल जोड़ें (Insert - Module) और इस कोड मैक्रो को वहां कॉपी करें:
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "कोई फ़ाइल नहीं चुनी गई!"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
उसके बाद, आप Excel पर वापस लौट सकते हैं और हमारे मैक्रो को मेनू Tools - Macro - Macros (Alt+F8) के माध्यम से चला सकते हैं। एक संवाद बॉक्स दिखाई देगा, जहां आपको एक या अधिक (Ctrl दबाकर) फ़ाइलों का चयन करना होगा, जिनकी शीट हम वर्तमान कार्यपुस्तिका में जोड़ना चाहते हैं।
यदि आप किसी भिन्न Excel फ़ाइल एक्सटेंशन का उपयोग करते हैं (उदाहरण के लिए, *.xlsx, *.xlsm, *.xlsb, आदि), तो आपको हमारे मैक्रो में कोड की नौवीं पंक्ति में उचित परिवर्तन करने की आवश्यकता होगी।