एकाधिक एक्सेल फ़ाइलों को CSV में आसानी से बदलें: 3 सिद्ध विधियां

CSV का पूर्ण रूप Comma Separated Value है। इसका मतलब है कि CSV में मान केवल कॉमा से अलग किए जाते हैं। यह डेटाबेस प्रबंधन में एक आवश्यक डेटा प्रारूप है। हम कई डेटा प्रबंधन परियोजनाओं में एक्सेल का भी उपयोग करते हैं। इसलिए इन दो प्रारूपों के बीच डेटा का आदान-प्रदान करना काफी सामान्य है। हालाँकि हम टेक्स्ट टू कॉलम सुविधा का उपयोग करके CSV प्रारूप फ़ाइलों को आसानी से एक्सेल में बदल सकते हैं, कई एक्सेल को CSV में बदलने के लिए आज तक कोई सीधी विधि मौजूद नहीं है। आपको इस उद्देश्य के लिए VBA या ऑनलाइन टूल का उपयोग करने की आवश्यकता है। एकाधिक एक्सेल फ़ाइलों को CSV में कैसे बदलें, इसकी चर्चा यहां पर्याप्त व्याख्या के साथ की गई है।

नीचे दिए गए अभ्यास वर्कबुक डाउनलोड करें।

एकाधिक एक्सेल फ़ाइलों को CSV में बदलने के 3 उपयुक्त तरीके

प्रदर्शन उद्देश्य के लिए, हम निम्न डेटा सेट का उपयोग करने जा रहे हैं, जो समझने में काफी आसान है। हमारे पास टेबल हेडर के रूप में खरीद की तारीख, क्षेत्र, उत्पाद, और मात्रा हैं।

1. एकाधिक एक्सेल फ़ाइलों को CSV में बदलने के लिए VBA एम्बेड करना

एक साधारण VBA मैक्रो का उपयोग एकाधिक एक्सेल फ़ाइलों को CSV प्रारूप में बदलने के समय को काफी कम कर सकता है। यह विधि सीधे एक्सेल फ़ाइलों को लोड करेगी और फिर उन्हें CSV प्रारूप फ़ाइलों में बदल देगी।

चरण

• सबसे पहले, डेवलपर टैब पर जाएं, फिर Visual Basic पर क्लिक करें।

• फिर इन्सर्ट > Module पर क्लिक करें।

• Module विंडो में, निम्न कोड दर्ज करें।

Sub convert_Excel_to_csv() Dim Con_Mul_Excel As Workbook Dim Con_Mul_Excel_ws As Worksheet Dim Con_Mul_Excel_path As String Dim Con_Mul_Excel_file As String Dim Con_Mul_Excel_fd As FileDialog Dim Con_Mul_Excel_sfd As FileDialog Dim Con_Mul_Excel_spath As String Dim Con_Mul_Excel_name As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual On Error Resume Next Set Con_Mul_Excel_fd = Application.FileDialog(msoFileDialogFolderPicker) Con_Mul_Excel_fd.AllowMultiSelect = False Con_Mul_Excel_fd.Title = "Select the Folder for Your Excel Files" If Con_Mul_Excel_fd.Show <> -1 Then Exit Sub Con_Mul_Excel_path = Con_Mul_Excel_fd.SelectedItems(1) & "\" Set Con_Mul_Excel_sfd = Application.FileDialog(msoFileDialogFolderPicker) Con_Mul_Excel_sfd.AllowMultiSelect = False Con_Mul_Excel_sfd.Title = "Select Destination Folder" If Con_Mul_Excel_sfd.Show <> -1 Then Exit Sub Con_Mul_Excel_spath = Con_Mul_Excel_sfd.SelectedItems(1) & "\" Con_Mul_Excel_file = Dir(Con_Mul_Excel_path & "*.xls*") Do While Con_Mul_Excel_file <> "" Set Con_Mul_Excel = Workbooks.Open(Filename:=Con_Mul_Excel_path & Con_Mul_Excel_file) Con_Mul_Excel_name = Con_Mul_Excel_spath & Left(Con_Mul_Excel_file, InStr(1, Con_Mul_Excel_file, ".") - 1) & ".csv" Con_Mul_Excel.SaveAs Filename:=Con_Mul_Excel_name, FileFormat:=xlCSV Con_Mul_Excel.Close savechanges:=False Con_Mul_Excel_file = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

• फिर विंडो बंद करें।
• उसके बाद, View टैब > Macros (डबल क्लिक) पर जाएं।

• View Macros पर क्लिक करने के बाद, आपके द्वारा अभी बनाए गए मैक्रोज़ को चुनें। नाम यहां convert_Excel-to CSV है। फिर Run पर क्लिक करें।

• Run पर क्लिक करने के बाद, आप देखेंगे कि एक नई ब्राउज़र विंडो खुलेगी, और उस विंडो से, आपको वह फ़ोल्डर चुनना होगा जहां आपकी एकाधिक एक्सेल फ़ाइलें संग्रहीत हैं, फ़ोल्डर चुनें और OK पर क्लिक करें।

• फिर एक और विंडो खुलेगी जो एक्सेल फ़ाइलों से परिवर्तित होने के बाद CSV फ़ाइल के स्थान के लिए पूछेगी। गंतव्य फ़ोल्डर चुनें और इसके बाद OK पर क्लिक करें।

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

• Dataset_1 निरीक्षण के लिए क्लिक करें।
• फ़ाइल पर क्लिक करने के बाद आप देखेंगे कि फ़ाइल खुली और एक्सेल फ़ाइल के बजाय CSV फ़ाइल के रूप में दिखा रही है।
• यह पुष्टि करता है कि रूपांतरण सफल है।

• Dataset_2 निरीक्षण के लिए क्लिक करें।
• फ़ाइल पर क्लिक करने के बाद आप देखेंगे कि फ़ाइल खुली और एक्सेल फ़ाइल के बजाय CSV फ़ाइल के रूप में दिखा रही है।
• यह पुष्टि करता है कि रूपांतरण सफल है।

• Dataset_3 निरीक्षण के लिए क्लिक करें।
• फ़ाइल पर क्लिक करने के बाद आप देखेंगे कि फ़ाइल खुली और एक्सेल फ़ाइल के बजाय CSV फ़ाइल के रूप में दिखा रही है।
• यह पुष्टि करता है कि रूपांतरण सफल है।

और पढ़ें: एक्सेल फ़ाइल को CSV फॉर्मेट में कैसे बदलें (5 आसान तरीके)

2. एकाधिक एक्सेल फ़ाइलों को संयोजित करें और उन्हें CSV में बदलें

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

चरण

• सबसे पहले, डेवलपर टैब पर जाएं, फिर Visual Basic पर क्लिक करें।

• फिर इन्सर्ट > Module पर क्लिक करें।

• Module विंडो में, निम्न कोड दर्ज करें।

Sub Combine_Excel_Files() Dim fnList, fnCurFile As Variant Dim cFiles, cSheets As Integer Dim wkCurSheet As Worksheet Dim wbCurBook, wbSrcBook As Workbook fnList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnList)) Then If (UBound(fnList) > 0) Then cFiles = 0 cSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbCurBook = ActiveWorkbook For Each fnCurFile In fnList cFiles = cFiles + 1 Set wbSrcBook = Workbooks.Open(Filename:=fnCurFile) For Each wkCurSheet In wbSrcBook.Sheets cSheets = cSheets + 1 wkCurSheet.Copy after:=wbCurBook.Sheets(wbCurBook.Sheets.Count) Next wbSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Worked on " & cFiles & " files" & vbCrLf & "Joined " & cSheets & " worksheets", Title:="Merging Multiple Excel Files" End If Else MsgBox "No File is Selected", Title:="Merging Multiple Excel files" End If End Sub

• फिर विंडो बंद करें।
• उसके बाद, View टैब > Macros (डबल क्लिक) पर जाएं।

• View Macros पर क्लिक करने के बाद, आपके द्वारा अभी बनाए गए मैक्रोज़ को चुनें। नाम यहां Combine_Excel_Files है। फिर Run पर क्लिक करें।

• उसके बाद, एक नई फ़ाइल ब्राउज़र विंडो खुलेगी, और उस विंडो से, आपको उन फ़ाइलों को चुनना होगा जिन्हें आप एक सिंगल एक्सेल फ़ाइल में मर्ज करना चाहते हैं।
• फ़ाइलें चुनें और Open पर क्लिक करें।

• Open पर क्लिक करने के बाद, आप प्रत्येक शीट के लिए एक-एक करके लोडिंग स्क्रीन देखेंगे। कुछ क्षणों के बाद, नीचे दी गई विंडो निम्न संदेश के साथ उत्पन्न होगी।

• फिर, आप देखेंगे कि तीन अलग-अलग एक्सेल वर्कबुक अब सक्रिय एक्सेल वर्कबुक में व्यक्तिगत वर्कशीट्स के रूप में लोड हो गए हैं।

• अगला, डेवलपर टैब पर जाएं, फिर Visual Basic पर क्लिक करें।

• फिर इन्सर्ट > Module पर क्लिक करें।

• Module विंडो में, निम्न कोड दर्ज करें।

Sub Excel_TO_CSV() Dim wrsh As Worksheet Dim excsv As String For Each wrsh In Application.ActiveWorkbook.Worksheets wrsh.Copy excsv = CurDir & "\" & wrsh.Name & ".csv" Application.ActiveWorkbook.SaveAs Filename:=excsv, _ FileFormat:=xlCSV, CreateBackup:=False Application.ActiveWorkbook.Saved = True Application.ActiveWorkbook.Close Next End Sub

• फिर विंडो बंद करें।
• उसके बाद, View टैब > Macros (डबल क्लिक) पर जाएं।

• View Macros पर क्लिक करने के बाद, आपके द्वारा अभी बनाए गए मैक्रोज़ को चुनें। नाम यहां Excel_TO_CSV है। फिर Run पर क्लिक करें।

• Run पर क्लिक करने के बाद, वर्कशीट में लोडिंग चरण के क्षण होंगे।
• फिर आपको अपने कंप्यूटर पर फ़ाइल डॉक्यूमेंट फ़ोल्डर की आवश्यकता होगी। इस निर्देशिका में, आप परिवर्तित CSV फ़ाइलें देखने जा रहे हैं।
• आप देखेंगे कि इन फ़ाइलों के फ़ाइल एक्सटेंशन CSV फॉर्मेट में दिखा रहे हैं।

• Dataset_1 खोलें, फिर आप देखेंगे कि फ़ाइल CSV फॉर्मेट में है और एक्सेल वर्कशीट से परिवर्तित हुई है।

और पढ़ें: बिना खोले एक्सेल को CSV में कैसे बदलें (4 आसान विधियां)

3. ऑनलाइन रूपांतरण टूल का उपयोग करना

यदि आपके पास ऑनलाइन एक्सेस है, तो यह शायद एक्सेल फ़ाइल को CSV प्रारूप में बदलने का सबसे आसान तरीका है। आपको बस आवश्यक फ़ाइलें अपलोड करनी हैं और कन्वर्ट पर क्लिक करना है। रूपांतरण पूरा होने के बाद, आपको बस फ़ाइलों को अपने कंप्यूटर पर डाउनलोड करना होगा।

चरण

• XLSX (EXCEL) to CSV (Online & Free) — Convertio पर जाएं। यह एक्सेल शीट्स को CSV प्रारूप में बदलने के लिए एक बहुत अच्छा ऑनलाइन कन्वर्टर है।
• इनपुट फॉर्मेट और आउटपुट फॉर्मेट चुनें। यहां इनपुट फॉर्मेट XLSX होगा, फिर आउटपुट फॉर्मेट CSV चुनें।
• अगला, वेबसाइट पर Choose Files आइकन पर क्लिक करें।

• एक फ़ाइल ब्राउज़ मेनू खुलेगा, उस मेनू से उन फ़ाइलों को चुनें जिन्हें परिवर्तित करने की आवश्यकता है और Open पर क्लिक करें। इस मामले में, हमने Dataset_1, Dataset_2, Dataset_3 चुने।

• उन सभी तीन को अब वेबसाइट पर अपलोड किया जाएगा, और उनका गंतव्य फॉर्मेट CSV दिखाएगा। इसके बाद Convert पर क्लिक करें।

• Convert पर क्लिक करने के बाद, रूपांतरण प्रक्रिया शुरू होगी।
• फिर प्रत्येक फ़ाइल के दाईं ओर Download पर क्लिक करके परिवर्तित फ़ाइलें डाउनलोड करें।

• डाउनलोड पूरा होने के बाद, डाउनलोड फ़ोल्डर खोलें और ध्यान दें कि सभी एक्सेल फ़ाइलें अब CSV प्रारूप में परिवर्तित हो गई हैं।

• Dataset_1 निरीक्षण के लिए खोलें।
• ध्यान दें कि फ़ाइल अब CSV फ़ाइल के रूप में खुली है। इसका मतलब है कि रूपांतरण सफल है।

और पढ़ें: एक्सेल फ़ाइलों को स्वचालित रूप से CSV में कैसे बदलें (3 आसान विधियां)

निष्कर्ष

इसे सारांशित करने के लिए, "एकाधिक एक्सेल फ़ाइलों को CSV में कैसे बदलें" का प्रश्न यहां 3 अलग-अलग तरीकों से उत्तर दिया गया है। हमने यहां 2 अलग-अलग VBA दृष्टिकोण और एक ऑनलाइन कन्वर्टर विधि का उपयोग किया है। यहां उपयोग की गई सभी विधियों में, ऑनलाइन रूपांतरण विधि करना सबसे आसान और समय बचाने वाला है। VBA प्रक्रिया भी कम समय लेने वाली है लेकिन पूर्व VBA-संबंधित ज्ञान की आवश्यकता होती है। ऑनलाइन विधि में ऐसी कोई आवश्यकता नहीं है।

इस समस्या के लिए, एक मैक्रो-सक्षम वर्कबुक संलग्न है जहां आप इन विधियों का अभ्यास कर सकते हैं।

टिप्पणी अनुभाग के माध्यम से किसी भी प्रश्न या प्रतिक्रिया पूछने के लिए स्वतंत्र महसूस करें। ExcelDemy समुदाय की बेहतरी के लिए किसी भी सुझाव की अत्यधिक सराहना की जाएगी।

संबंधित लेख

• पाइप डिलिमिटेड टेक्स्ट फ़ाइल में एक्सेल को बदलने के लिए मैक्रो (3 विधियां)
• एक्सेल फ़ाइल को कॉमा डिलिमिटेड टेक्स्ट फ़ाइल में कैसे बदलें (3 विधियां)
• डबल कोट्स के साथ एक्सेल को CSV के रूप में सेव करें (3 सरलतम विधियां)
• [हल!] एक्सेल CSV को कॉमा के साथ सेव नहीं कर रहा (7 संभावित समाधान)
• एक्सेल को कॉमा डिलिमिटेड CSV फ़ाइल में बदलें (2 आसान तरीके)