Excel में एकाधिक CSV फ़ाइलों को बैच में XLS(X) फ़ाइलों में कैसे परिवर्तित करें?
Save As सुविधा लागू करके CSV फ़ाइल को XlS या XLSX फ़ाइल में परिवर्तित करना आपके लिए बहुत आसान है। हालाँकि, एक फ़ोल्डर से एकाधिक CSV फ़ाइलों को XLS या XLSX फ़ाइलों में कनवर्ट करने में एक-एक करके मैन्युअल रूप से सहेजने में समय लगता है। यहां मैं एक फ़ोल्डर से सभी CSV फ़ाइलों को XLS(x) फ़ाइलों में त्वरित रूप से बैच में परिवर्तित करने के लिए एक मैक्रो कोड प्रस्तुत करता हूं।
बैच मैक्रो कोड के साथ CSV फ़ाइलों को XlS(X) फ़ाइलों में परिवर्तित करता है
बैच मैक्रो कोड के साथ CSV फ़ाइलों को XlS(X) फ़ाइलों में परिवर्तित करता है
एकाधिक CSV फ़ाइलों को एक फ़ोल्डर से XLS(X) फ़ाइलों में परिवर्तित करने के लिए, आप नीचे दिए गए चरणों का पालन कर सकते हैं:
1. नई कार्यपुस्तिका सक्षम करें, दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और क्लिक करें सम्मिलित करें > मॉड्यूल. स्क्रीनशॉट देखें:
नोट: सुनिश्चित करें कि सभी CSV फ़ाइलें जिन्हें आप कनवर्ट करना चाहते हैं, बंद हैं।
2. फिर नीचे दिए गए मैक्रो कोड को पेस्ट करें मॉड्यूल स्क्रिप्ट, और दबाएँ F5 कोड चलाने की कुंजी.
वीबीए: सीएसवी को एक्सएलएस में कनवर्ट करें
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
3. पॉपिंग आउट डायलॉग में, निर्दिष्ट फ़ोल्डर का चयन करें जिसमें सीएसवी फ़ाइलें हैं जिन्हें आप कनवर्ट करना चाहते हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK, इसमें चयनित फ़ोल्डर की सभी CSV फ़ाइलें XLS फ़ाइलों में परिवर्तित कर दी गई हैं।
टिप: यदि आप CSV फ़ाइलों को XLSX फ़ाइलों में कनवर्ट करना चाहते हैं, तो आप नीचे दिए गए VBA कोड का उपयोग करें।
वीबीए: सीएसवी फाइलों को एक्सएलएसएक्स में कनवर्ट करें
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
एक ही समय में एक्सएलएस/वर्ड/पीडीएफ या अन्य प्रारूप फ़ाइलों को अलग करने के लिए शीट की एक श्रृंखला को तुरंत परिवर्तित या निर्यात करें
|
आम तौर पर, Excel आपको CSV या Excel फ़ाइल के रूप में किसी श्रेणी को त्वरित रूप से निर्यात करने या सहेजने के विकल्प का समर्थन नहीं करता है। यदि आप एक्सेल में डेटा की एक श्रृंखला को सीएसवी या वर्कबुक के रूप में सहेजना चाहते हैं, तो आपको ऐसा करने के लिए वीबीए मैक्रो का उपयोग करने की आवश्यकता हो सकती है या रेंज को क्लिपबोर्ड पर कॉपी करके एक नई वर्कबुक में पेस्ट करना होगा और फिर वर्कबुक को सीएसवी या के रूप में सहेजना होगा। कार्यपुस्तिका. एक्सेल के लिए कुटूल एक्सेल को इसके साथ संवर्धित करता है फ़ाइल में रेंज निर्यात करें एक्सेल उपयोगकर्ताओं के लिए उपयोगिता जो निम्नलिखित परिचालनों को शीघ्रता से संसाधित करना चाहते हैं: 30-दिवसीय पूर्ण विशेषताओं वाले निःशुल्क परीक्षण के लिए क्लिक करें! |
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। |
संबंधित लेख:
- सीएसवी फ़ाइल को एक्सएलएस फ़ाइल में कैसे परिवर्तित करें या एक्सेल में सीएसवी को आयात/खोलें?
- वर्ड डॉक्यूमेंट को एक्सेल वर्कशीट में कैसे बदलें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!