एक्सेल को डबल कोट्स के साथ CSV के रूप में सेव करें - 3 सरल विधियां

यह लेख एक्सेल फ़ाइलों को CSV के रूप में डबल-कोट्स के साथ सेव करने के 3 सरल तरीकों को दर्शाता है। डेटा के किसी भी गलत प्रतिनिधित्व से बचने के लिए CSV फ़ाइलों को डबल कोट्स के साथ सेव करना आवश्यक है। उदाहरण के लिए, डेटा की पंक्ति USD,25,000,Model1 पर विचार करें। यहां, कॉमा डिलीमीटर थोड़ा भ्रमित करने वाला है। इसके बजाय, USD,"25,000",Model1 अधिक उपयुक्त है। निम्न तस्वीर इस लेख के उद्देश्य को हाइलाइट करती है। इसे कैसे करना है यह जानने के लिए इस पर एक त्वरित नज़र डालें।

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

एक्सेल को डबल कोट्स के साथ CSV के रूप में सेव करने के 3 सबसे तेज़ तरीके

1. एक्सेल को डबल कोट्स के साथ CSV के रूप में सेव करने के लिए कस्टम फॉर्मेट का उपयोग करें

कल्पना करें कि आपके पास निम्न डेटासेट है। आप इसे सेल मानों को डबल-कोट्स में लपेटकर CSV फ़ाइल के रूप में सेव करना चाहते हैं। फिर नीचे दिए गए चरणों का पालन करें।

📌 चरण

• सबसे पहले, डेटासेट की पूरी रेंज (A1:B6) चुनें।
• फिर, फॉर्मेट सेल्स विंडो खोलने के लिए CTRL+1 दबाएं।
• अगला, नंबर टैब से कस्टम फॉर्मेट चुनें।
• फिर, Type फ़ील्ड में \""#\"";\""@\"" दर्ज करें।
• उसके बाद, OK दबाएं।

• अगला, फाइल >> सेव अस चुनें। फिर फ़ाइल सेव करने के लिए वांछित स्थान ब्राउज़ करें।
• उसके बाद, एक फ़ाइल नाम दर्ज करें। अब, ड्रॉपडाउन तीर का उपयोग करके फ़ाइल प्रकार के रूप में CSV (कॉमा डिलिमिटेड) (*.csv) चुनें।
• फिर, सेव बटन पर क्लिक करें।

• अगला, उस वांछित स्थान पर जाएं। फिर CSV फ़ाइल को टेक्स्ट एडिटर (नोटपैड आदि) के साथ खोलें।

• उसके बाद, आप कुछ अतिरिक्त डबल-कोट्स युक्त निम्न परिणाम देखेंगे।

• अब, रिप्लेस विंडो खोलने के लिए CTRL+H दबाएं। Find what फ़ील्ड में बिना किसी स्पेस के एक डबल कोट दर्ज करें। Replace with फ़ील्ड खाली रखें और Replace All चुनें।
• अंत में, आपको निम्नानुसार वांछित परिणाम मिलेगा।

और पढ़ें: एकाधिक एक्सेल फ़ाइलों को CSV फ़ाइलों में बदलने के लिए मैक्रो कैसे लागू करें

2. विंडोज पावरशेल का उपयोग करें

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

📌 चरण

• सबसे पहले, उस वर्कशीट पर जाएं जिसे आप CSV फ़ाइल के रूप में सेव करना चाहते हैं।
• अगला, पहले की विधि की तरह फाइल >> सेव अस चुनें।
• फिर, फ़ाइल के लिए वांछित स्थान ब्राउज़ करें। अगला, फ़ाइल के लिए एक नाम दर्ज करें।
• उसके बाद, ड्रॉपडाउन तीर का उपयोग करके फ़ाइल प्रकार के रूप में CSV (कॉमा डिलिमिटेड) (*.csv) चुनें।
• फिर, सेव बटन पर क्लिक करें।

• उसके बाद, आपको निम्न परिणाम मिलेगा।

• अब, SHIFT कुंजी दबाए रखें और CSV फ़ाइल के स्थान में किसी भी खाली स्थान पर राइट-क्लिक करें जिसमें डबल-कोट्स न हों।
• फिर, यहां पावरशेल विंडो खोलें पर क्लिक करें।

• अब, निम्न कमांड कॉपी करें। आपको अपनी फ़ाइलों के आधार पर फ़ाइल नाम बदलने की आवश्यकता है।

• फिर, कॉपी किए गए कोड को पावरशेल विंडो में पेस्ट करें और Enter दबाएं।

• उसके बाद, आपको नीचे दी गई तस्वीर में दिखाए अनुसार वांछित परिणाम मिलेगा।

और पढ़ें: एक्सेल फ़ाइल को कॉमा डिलिमिटेड टेक्स्ट फ़ाइल में कैसे बदलें (3 विधियां)

समान पठन

• पाइप डिलिमिटेड टेक्स्ट फ़ाइल में एक्सेल को बदलने के लिए मैक्रो (3 विधियां)
• एकाधिक एक्सेल फ़ाइलों को CSV में कैसे बदलें (3 उपयुक्त तरीके)

3. CSV फ़ाइल के लिए डबल कोट्स के साथ VBA कोड लागू करें

आप उसी परिणाम को प्राप्त करने के लिए एक्सेल VBA का भी उपयोग कर सकते हैं। ऐसा करने के लिए नीचे दिए गए चरणों का पालन करें।

📌 चरण

• सबसे पहले, VBA विंडो खोलने के लिए ALT+F11 दबाएं।
• फिर, निम्न तस्वीर में दिखाए अनुसार इन्सर्ट >> मॉड्यूल चुनें। यह एक नया मॉड्यूल बनाएगा।

• अब, कॉपी बटन का उपयोग करके नीचे दिए गए कोड को कॉपी करें।

Sub ExcelToCSV() Dim rng, row, cell As Range Dim dqt, dlim, text As String Dim file As Variant On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then text = ActiveWindow.RangeSelection.AddressLocal Else text = ActiveSheet.UsedRange.AddressLocal End If Set rng = Application.InputBox("Please select the data range:", "ExcelDemy.Com", text, , , , , 8) If rng Is Nothing Then Exit Sub file = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv") dlim = Application.International(xlListSeparator) Open file For Output As #1 For Each row In rng.rows dqt = "" For Each cell In row.Cells dqt = dqt & """" & cell.Value & """" & dlim Next While Right(dqt, 1) = dlim dqt = Left(dqt, Len(dqt) - 1) Wend Print #1, dqt Next Close #1 If Err = 0 Then MsgBox "The CSV file has been saved to: " & file, vbInformation, "ExcelDemy.Com" End Sub

• फिर, कॉपी किए गए कोड को नीचे दिखाए अनुसार मॉड्यूल में पेस्ट करें।

• अगला, कोड चलाने के लिए F5 दबाएं। यह आपकी वांछित रेंज के लिए पूछेगा। अब, आप वर्कशीट पर वापस टॉगल कर सकते हैं और रेंज चुन सकते हैं। फिर, OK दबाएं। यह आपको सीधे सेव अस विंडो पर ले जाएगा।

• अब, फ़ाइल के लिए स्थान ब्राउज़ करें और एक नाम दर्ज करें। फिर, सेव पर क्लिक करें।

• उसके बाद, एक्सेल निम्न संदेश दिखाएगा।

• अंत में, आप निम्न परिणामों की जांच कर सकते हैं।

🔎 VBA कोड की व्याख्या

Sub ExcelToCSV()
हम इस सब प्रोसीजर के अंदर कोड लिखेंगे।

Dim rng, row, cell As Range
Dim dqt, dlim, text As String
Dim file As Variant
आवश्यक वेरिएबल्स घोषित करना।

On Error Resume Next
किसी भी त्रुटि को नज़रअंदाज करता है।

If ActiveWindow.RangeSelection.Count > 1 Then
text = ActiveWindow.RangeSelection.AddressLocal
Else
text = ActiveSheet.UsedRange.AddressLocal
End If
स्वचालित रूप से चयन करने के लिए डेटा का पता लगाता है।

Set rng = Application.InputBox("Please select the data range:", "ExcelDemy.Com", text, , , , , 8)
डेटा रेंज के लिए पूछता है।

If rng Is Nothing Then Exit Sub
कोई इनपुट न होने पर ऑपरेशन से बाहर निकलता है।

file = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
नई फ़ाइल का फॉर्मेट सेट करता है।

dlim = Application.International(xlListSeparator)
कॉमा को डिलीमीटर के रूप में निर्दिष्ट करता है।

Open file For Output As #1
एक नई फ़ाइल बनाता है।

For Each row In rng.rows
dqt = ""
For Each cell In row.Cells
dqt = dqt & """" & cell.Value & """" & dlim
Next
While Right(dqt, 1) = dlim
dqt = Left(dqt, Len(dqt) - 1)
Wend
Print #1, dqt
Next
Close #1
सेल मानों को डबल कोट्स के साथ लपेटता है और नई फ़ाइल को उनसे भरता है।

If Err = 0 Then MsgBox "The CSV file has been saved to: " & file, vbInformation, "ExcelDemy.Com"
CSV फ़ाइल सेव होने की पुष्टि करता है।

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

याद रखने योग्य बातें

• यदि आप अन्य स्थानों से खोलते हैं तो पावरशेल कमांड में उचित फ़ाइल पथ देना होगा।
• आपको अपनी फ़ाइलों के आधार पर फ़ाइल नाम बदलने की आवश्यकता है।

निष्कर्ष

अब आप जानते हैं कि एक्सेल फ़ाइलों को डबल-कोट्स के साथ CSV फ़ाइलों के रूप में सेव करने के लिए कैसे बदलें। कृपया हमें बताएं कि क्या इस लेख ने आपको आपका वांछित समाधान प्रदान किया है। आप आगे की पूछताछ या सुझावों के लिए नीचे टिप्पणी अनुभाग का भी उपयोग कर सकते हैं। अधिक एक्सेल सीखने के लिए हमारे ExcelDemy ब्लॉग पर जाएं। हमारे साथ बने रहें और सीखते रहें।

संबंधित लेख

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