डबल कोट्स के साथ/बिना वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में कैसे सहेजें?
जब आप एक्सेल से सीएसवी फ़ाइल में डेटा की एक श्रृंखला निर्यात या सहेजते हैं, तो आम तौर पर, सीएसवी डेटा डबल कोट्स के साथ नहीं होता है, लेकिन, यदि आपके सेल मान अल्पविराम या लाइन ब्रेक से अलग होते हैं, तो निर्यात किया गया सीएसवी डेटा डबल कोट्स के साथ होगा उद्धरण। और यह लेख, मैं इस बारे में बात करूंगा कि वर्कशीट डेटा को आपकी आवश्यकता के अनुसार डबल कोट्स के साथ या उसके बिना सीएसवी फ़ाइल के रूप में कैसे सहेजा जाए।
डबल कोट्स के साथ वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में सहेजें
डबल कोट्स के बिना वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में सहेजें
डबल कोट्स के साथ वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में सहेजें
सामान्य डेटा को डबल कोट्स के साथ सीएसवी फ़ाइल के रूप में सहेजने के लिए, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है, कृपया निम्नानुसार कार्य करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: डबल कोट्स के साथ वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में सहेजें:
Sub CSVFile()
'updateby Extendoffice
Dim xRg As Range
Dim xRow As Range
Dim xCell As Range
Dim xStr As String
Dim xSep As String
Dim xTxt As String
Dim xName As Variant
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
xSep = Application.International(xlListSeparator)
Open xName For Output As #1
For Each xRow In xRg.Rows
xStr = ""
For Each xCell In xRow.Cells
xStr = xStr & """" & xCell.Value & """" & xSep
Next
While Right(xStr, 1) = xSep
xStr = Left(xStr, Len(xStr) - 1)
Wend
Print #1, xStr
Next
Close #1
If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub
3. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप आउट होता है कि आप उस डेटा रेंज का चयन करें जिसे आप डबल कोट्स के साथ सीएसवी फ़ाइल के रूप में सहेजना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, और ए इस रूप में सहेजें विंडो दिखाई देती है, कृपया फ़ाइल का नाम और स्थान निर्दिष्ट करें, और फिर क्लिक करें सहेजें बटन, स्क्रीनशॉट देखें:
5। और एक एक्सेल के लिए कुटूलआपको याद दिलाने के लिए प्रॉम्प्ट बॉक्स पॉप आउट हो गया है कि नई सीएसवी फ़ाइल आपके निर्दिष्ट स्थान पर सहेजी गई है, स्क्रीनशॉट देखें:
6। क्लिक करें OK संवाद बंद करने के लिए, और अब, जब आप अपनी नई सीएसवी फ़ाइल खोलते हैं, तो सभी डेटा दोहरे उद्धरण चिह्नों से घिरे होते हैं जैसा कि स्क्रीनशॉट में दिखाया गया है:
डबल कोट्स के बिना वर्कशीट डेटा को सीएसवी फ़ाइल के रूप में सहेजें
यदि आपका डेटा किसी सेल में अल्पविराम, लाइन ब्रेक द्वारा अलग किया गया है, तो जब आप डेटा को सीएसवी फ़ाइल के रूप में सहेजते हैं, तो डेटा निम्नलिखित दिखाए अनुसार दोहरे उद्धरण चिह्नों से घिरा होगा:
डबल कोट्स के बिना डेटा को सीएसवी फ़ाइल के रूप में सहेजने के लिए, कृपया निम्नलिखित वीबीए कोड लागू करें।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: वर्कशीट डेटा को डबल कोट्स के बिना सीएसवी फ़ाइल के रूप में सहेजें:
Sub Export()
'updateby Extendoffice
Dim xRg As Range
Dim xRow As Range
Dim xCell As Range
Dim xStr As String
Dim xTxt As String
Dim xName As Variant
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
Open xName For Output As #1
For Each xRow In xRg.Rows
xStr = ""
For Each xCell In xRow.Cells
xStr = xStr & xCell.Value & Chr(9)
Next
While Right(xStr, 1) = Chr(9)
xStr = Left(xStr, Len(xStr) - 1)
Wend
Print #1, xStr
Next
Close #1
If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप आउट होता है कि आप उस डेटा रेंज का चयन करें जिसे आप डबल कोट्स के बिना सीएसवी के रूप में सहेजना चाहते हैं, स्क्रीनशॉट देखें:
4। क्लिक करें OK बटन, और ए इस रूप में सहेजें विंडो प्रदर्शित है, कृपया अपनी नई सीएसवी फ़ाइल के लिए फ़ाइल नाम और स्थान निर्दिष्ट करें, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें सहेजें बटन, ए एक्सेल के लिए कुटूलका प्रॉम्प्ट बॉक्स आपको यह बताने के लिए पॉप आउट हो गया है कि नई सीएसवी फ़ाइल आपके निर्दिष्ट स्थान पर सहेजी गई है, स्क्रीनशॉट देखें:
6. क्लिक करें OK संवाद बंद करने के लिए, और, जब आप अपनी नई सीएसवी फ़ाइल खोलते हैं, तो डेटा से घिरे दोहरे उद्धरण चिह्न दिखाए गए स्क्रीनशॉट के अनुसार हटा दिए जाते हैं:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!