एक्सेल फाइलों के साथ काम करते समय, कभी-कभी हम कई सीएसवी फाइलों के साथ आते हैं। अब, उन CSV फ़ाइलों को एकल कार्यपुस्तिका में मर्ज करना हमारे लिए बार-बार आवश्यक हो जाता है। इस लेख में, मैं आपको एक्सेल में CSV फ़ाइलों को एकाधिक शीट में मर्ज करने के सभी चरण दिखाऊंगा।
आप हमारी स्रोत CSV फ़ाइलें और अंतिम मर्ज की गई कार्यपुस्तिका को यहां से निःशुल्क डाउनलोड कर सकते हैं!
सीएसवी स्रोत फ़ाइलें:
अंतिम मर्ज की गई फ़ाइल:
सीएसवी फाइलों को एक से अधिक एक्सेल शीट में मर्ज करने के चरण
मान लीजिए, आपके पास ग्रेड 6, ग्रेड 7 के लिए तीन अलग-अलग एक्सेल वर्कबुक हैं और कई छात्रों के लिए विभिन्न विषयों के लिए ग्रेड 8 रिपोर्ट कार्ड हैं। फाइलें छात्रों के नाम, विषयों और अंकों के साथ सीएसवी प्रारूप में हैं। अब, आप सभी कार्यपुस्तिकाओं को एक ही कार्यपुस्तिका में एकाधिक शीट में मर्ज करना चाहते हैं। CSV फ़ाइलों को एकाधिक एक्सेल शीट में मर्ज करने के लिए चरण-दर-चरण दिशानिर्देशों के माध्यम से जाएं।
📌 चरण 1:VBA के लिए एक मॉड्यूल तैयार करें
सबसे पहले और सबसे महत्वपूर्ण, आपको आवश्यक VBA कोड एप्लिकेशन के लिए एक मॉड्यूल सम्मिलित करने और तैयार करने की आवश्यकता है।
- ऐसा करने के लिए, डेवलपर . पर जाएं टैब>> विजुअल बेसिक उपकरण।
- परिणामस्वरूप, VB संपादक विंडो खुलेगी।
- बाद में, सम्मिलित करें . पर जाएं यहां टैब करें और मॉड्यूल . चुनें विकल्प।
परिणामस्वरूप, अब आपके पास अपना VBA कोड डालने के लिए एक मॉड्यूल होगा।
और पढ़ें: एक्सेल VBA CSV फ़ाइल को ऐरे में पढ़ने के लिए (4 आदर्श उदाहरण)
📌 चरण 2:VBA कोड लिखें और सहेजें
इसके बाद, आपको अब अपना VBA कोड डालना होगा।
- ऐसा करने के लिए, पहले मॉड्यूल 1 . पर क्लिक करें ।
- बाद में, VB संपादक में निम्न कोड लिखें मॉड्यूल 1 . का ।
Sub MergeCSVFiles()
Dim openFiles As Variant
Dim I As Integer
Dim wb As Workbook
Dim mergedWb As Workbook
Dim delimiter As String
Dim screen As Boolean
On Error GoTo ErrHandler
screen = Application.ScreenUpdating
Application.ScreenUpdating = False
delimiter = ";"
openFiles = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , "Merge CSV Files", , True)
If TypeName(openFiles) = "Boolean" Then
MsgBox "No files were selected", , "Merge CSV Files"
GoTo ExitHandler
End If
I = 1
Set mergedWb = Workbooks.Open(openFiles(I))
mergedWb.Sheets(1).Copy
Set wb = Application.ActiveWorkbook
mergedWb.Close False
Do While I < UBound(openFiles)
I = I + 1
Set mergedWb = Workbooks.Open(openFiles(I))
mergedWb.Sheets(1).Move , wb.Sheets(wb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = screen
Set wb = Nothing
Set mergedWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Merge CSV Files"
Resume ExitHandler
End Sub
- बाद में, Ctrl + S दबाएं VBA कोड को सेव करने के लिए अपने कीबोर्ड पर।
- परिणामस्वरूप, एक माइक्रोसॉफ्ट एक्सेल डायलॉग बॉक्स दिखाई देगा।
- बाद में, नहीं . पर क्लिक करें बटन।
- परिणामस्वरूप, इस रूप में सहेजें विंडो दिखाई देगी।
- निम्नलिखित, इस प्रकार सहेजें: . को बदलें .xlsm . के रूप में विकल्प स्वरूपित करें और सहेजें . पर क्लिक करें बटन।
इस प्रकार, आपका VBA कोड पूरी तरह से लिखा और सहेजा गया है।
और पढ़ें: एक्सेल वीबीए टू रीड सीएसवी फाइल लाइन बाय लाइन (3 आदर्श उदाहरण)
समान रीडिंग
- VBA का उपयोग करके एक्सेल में टेक्स्ट फ़ाइल कैसे आयात करें (3 आसान तरीके)
- एक्सेल में कॉलम के साथ नोटपैड या टेक्स्ट फ़ाइल को कैसे खोलें (3 आसान तरीके)
- Excel VBA:टेक्स्ट फ़ाइल को स्ट्रिंग में पढ़ें (4 प्रभावी मामले)
- CSV को XLSX में कैसे बदलें (4 त्वरित तरीके)
- एक्सेल में CSV फ़ाइल कैसे पढ़ें (4 सबसे तेज़ तरीके)
📌 चरण 3:CSV फ़ाइलों को एकाधिक शीट में मर्ज करने के लिए कोड चलाएँ
अंतिम लेकिन कम से कम, आपको CSV फ़ाइलों को एकाधिक शीट में मर्ज करने के लिए अभी VBA कोड चलाने की आवश्यकता है।
- ऐसा करने के लिए, डेवलपर . पर जाएं टैब>> मैक्रोज़ उपकरण।
- परिणामस्वरूप, मैक्रो विंडो दिखाई देगी।
- बाद में, CSVFiles मर्ज करें . चुनें मैक्रो नाम: . से मैक्रो फलक और चलाएं . पर क्लिक करें बटन।
- इस प्रकार, सभी कार्यपुस्तिकाओं को विभिन्न कार्यपत्रकों के रूप में एक नई कार्यपुस्तिका में मिला दिया जाएगा।
- अब, एक्सेल फाइल को ठीक से स्टोर करने के लिए, फाइल . पर जाएं टैब।
- इसके बाद, इस रूप में सहेजें . पर क्लिक करें विस्तृत फ़ाइल . से विकल्प टैब।
- परिणामस्वरूप, एक्सेल इस रूप में सहेजें डायलॉग बॉक्स दिखाई देगा।
- बाद में, ब्राउज़ करें . पर क्लिक करें विकल्प।
- परिणामस्वरूप, इस रूप में सहेजें डायलॉग बॉक्स दिखाई देगा।
- इसके बाद, फ़ाइल नाम: . में अपना वांछित फ़ाइल नाम डालें टेक्स्ट बॉक्स और सहेजें . पर क्लिक करें बटन।
इस प्रकार, CSV फ़ाइलें एकल कार्यपुस्तिका की एकाधिक शीट में मर्ज कर दी जाती हैं। और, अंतिम परिणाम इस तरह दिखेगा।
और पढ़ें: एक्सेल में मौजूदा शीट में CSV कैसे आयात करें (5 तरीके)
एक्सेल में CSV फ़ाइलों को एक शीट में मर्ज करने के लिए पावर क्वेरी का उपयोग
अब, यदि आप एक्सेल में सीएसवी फाइलों को एक शीट में मर्ज करना चाहते हैं, तो आप एक्सेल पावर क्वेरी टूल का उपयोग कर सकते हैं। ऐसा करने के लिए नीचे दिए गए चरणों का पालन करें।
📌 चरण:
- सबसे पहले और सबसे महत्वपूर्ण, डेटा पर जाएं टैब>> डेटा प्राप्त करें टूल>> फ़ाइल से विकल्प सूची>> फ़ोल्डर से विकल्प।
- परिणामस्वरूप, ब्राउज़ करें विंडो खुलेगी।
- इसके बाद, वह फ़ोल्डर चुनें जहां आपने CSV फ़ाइलें रखी हैं।
- बाद में, खोलें . पर क्लिक करें बटन।
- परिणामस्वरूप, Power Query विंडो खुलेगी और यह आपको आयात करने के लिए CSV फ़ाइलें दिखाएगा।
- बाद में, गठबंधन . पर क्लिक करें बटन>> डेटा को संयोजित और रूपांतरित करें विकल्प।
- परिणामस्वरूप, फ़ाइलों को संयोजित करें विंडो दिखाई देगी।
- आप यहां पूर्वावलोकन देखेंगे और सीमांकक . चुनेंगे अर्धविराम . के रूप में विकल्प आपके डेटा के अनुसार।
- इसके बाद, ठीक . पर क्लिक करें बटन।
- इस प्रकार, आप मर्ज की गई फ़ाइल Power Query विंडो में प्राप्त करेंगे।
- आखिरी लेकिन कम से कम नहीं, फ़ाइल . पर जाएं Power Query विंडो से टैब>> बंद करें और लोड करें . पर क्लिक करें बटन>> बंद करें और लोड करें विकल्प।
नतीजतन, आप सभी सीएसवी फाइलों को एक्सेल में एक ही शीट में मर्ज कर देंगे। और, आउटपुट इस तरह दिखना चाहिए।
और पढ़ें: एक्सेल में डेलीमीटर के साथ सीएसवी कैसे खोलें (6 आसान तरीके)
💬 याद रखने योग्य बातें
- प्रत्येक फ़ाइल और प्रत्येक डेटा के लिए एक विशिष्ट सीमांकक बनाए रखें।
- सभी सीएसवी फाइलें एक ही तरह और एक ही पंक्तियों और स्तंभों से उन्मुख होनी चाहिए।
निष्कर्ष
इसलिए, इस लेख में, मैंने आपको सीएसवी फाइलों को एक्सेल में कई शीट्स में मर्ज करने के सभी चरण दिखाए हैं। मेरा सुझाव है कि आप पूरा लेख ध्यान से पढ़ें और उसके अनुसार अभ्यास करें। मुझे उम्मीद है कि आपको यह लेख मददगार और जानकारीपूर्ण लगा होगा। यदि आपके कोई और प्रश्न या सुझाव हैं, तो यहां टिप्पणी करने के लिए आपका स्वागत है।
और, ExcelDemy . पर जाएं कई और एक्सेल समस्या समाधान, टिप्स और ट्रिक्स के बारे में जानने के लिए। धन्यवाद!
संबंधित लेख
- एक्सेल में CSV फ़ाइल कैसे देखें (3 प्रभावी तरीके)
- सीएसवी और एक्सेल फाइलों के बीच अंतर (11 उपयुक्त उदाहरण)
- सीएसवी को आसान चरणों के साथ स्वचालित रूप से एक्सेल में कनवर्ट करें
- [समाधान:] एक्सेल CSV फ़ाइलें एक कॉलम में खोल रहा है (3 समाधान)
- CSV को XLSX कमांड लाइन में कैसे बदलें (आसान चरणों के साथ)
- Excel VBA:टेक्स्ट फाइल लाइन बाय लाइन पढ़ें (6 संबंधित उदाहरण)