एक्सेल को दोहरे उद्धरण चिह्नों के साथ CSV के रूप में सहेजें (3 सरलतम तरीके)

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

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

एक्सेल को दोहरे उद्धरण चिह्नों के साथ CSV के रूप में सहेजने के 3 सबसे तेज़ तरीके

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

📌 कदम

• सबसे पहले, पूरी रेंज चुनें (A1:B6 ) डेटासेट का।
• फिर, CTRL+1 दबाएं प्रारूप कक्ष खोलने के लिए खिड़की।
• अगला, कस्टम . चुनें संख्या . से प्रारूपित करें टैब।
• फिर, \“#\”;\“@\” . दर्ज करें प्रकार . में फ़ील्ड.
• उसके बाद, ठीक दबाएं ।

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

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

• उसके बाद, आप निम्न परिणाम देखेंगे जिसमें कुछ अतिरिक्त दोहरे उद्धरण होंगे।

• अब, CTRL+H दबाएं बदलें . खोलने के लिए खिड़की। क्या ढूंढें . में दोहरा उद्धरण दर्ज करें उनके बीच बिना किसी स्थान के क्षेत्र। इससे बदलें Keep रखें फ़ील्ड खाली करें और सभी को बदलें . चुनें ।
• आखिरकार, आपको वांछित परिणाम निम्नानुसार मिलेगा।

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

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

📌 कदम

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

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

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

• अब, निम्न कमांड को कॉपी करें। आपको अपनी फाइलों के आधार पर फाइल के नाम बदलने होंगे।

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

• उसके बाद, आपको वांछित परिणाम मिलेगा जैसा कि नीचे चित्र में दिखाया गया है।

और पढ़ें:अल्पविराम के साथ एक्सेल फाइल को टेक्स्ट फाइल में कैसे बदलें (3 तरीके)

समान रीडिंग

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

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

📌 कदम

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

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

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 दबाएं कोड चलाने के लिए। यह आपकी वांछित सीमा के लिए पूछेगा। अब, आप कार्यपत्रक पर वापस टॉगल कर सकते हैं और श्रेणी का चयन कर सकते हैं। फिर, ठीक press दबाएं . यह आपको सीधे इस रूप में सहेजें . पर ले जाएगा खिड़की।

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

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

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

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

उप ExcelToCSV()
हम इस विषय प्रक्रिया के अंदर कोड लिखेंगे।

मंद rng, पंक्ति, सेल के रूप में रेंज
मंद dqt, dlim, text as String
फ़ाइल को भिन्न के रूप में मंद करें
आवश्यक चर घोषित करना।

त्रुटि पर अगला फिर से शुरू करें
किसी भी त्रुटि की उपेक्षा करता है।

यदि ActiveWindow.RangeSelection.Count> 1 तो
टेक्स्ट =ActiveWindow.RangeSelection.AddressLocal
वरना
पाठ =ActiveSheet.UsedRange.AddressLocal
अगर अंत
चयन करने के लिए डेटा का स्वचालित रूप से पता लगाता है।

सेट आरएनजी =एप्लिकेशन। इनपुटबॉक्स ("कृपया डेटा श्रेणी का चयन करें:", "ExcelDemy.Com", टेक्स्ट, , , , 8)
डेटा श्रेणी के लिए पूछता है।

यदि rng कुछ नहीं है तो उप से बाहर निकलें
बिना इनपुट के ऑपरेशन से बाहर निकलता है।

फ़ाइल =Application.GetSaveAsFilename(“”, “CSV फ़ाइल (*.csv), *.csv”)
नई फ़ाइल का प्रारूप सेट करता है।

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

आउटपुट के लिए फ़ाइल को #1 के रूप में खोलें
एक नई फ़ाइल बनाता है।

प्रत्येक पंक्ति के लिए rng.rows में
डीक्यूटी =""
पंक्ति में प्रत्येक सेल के लिए। सेल
dqt =dqt और """" और सेल। मान और """" और dlim
अगला
जबकि राइट(dqt, 1) =dlim
डीक्यूटी =बाएं (डीक्यूटी, लेन (डीक्यूटी) -1)
बीतना
# 1 प्रिंट करें, डीक्यूटी
अगला
बंद #1
सेल मानों को दोहरे उद्धरण चिह्नों से लपेटता है और उनके साथ नई फ़ाइल भरता है।

यदि त्रुटि =0 तो MsgBox “सीएसवी फ़ाइल को यहां सहेजा गया है:” और फ़ाइल, vbInformation, “ExcelDemy.Com”
CSV फ़ाइल को सहेजने की पुष्टि करता है।

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

याद रखने वाली बातें

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

निष्कर्ष

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

संबंधित लेख

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