मुख्य सामग्री पर जाएं

Excel में प्रत्येक शीट को CSV/PDF फ़ाइल के रूप में कैसे सहेजें या निर्यात करें?

लेखक: केली अंतिम संशोधित: 2020-04-30

उदाहरण के लिए, आपके पास कई शीटों वाली एक बड़ी कार्यपुस्तिका है, और आप प्रत्येक शीट को एक व्यक्तिगत .csv फ़ाइल या पीडीएफ फ़ाइल के रूप में सहेजना या निर्यात करना चाहते हैं, इसे आसानी से और जल्दी से कैसे पूरा करें? इस लेख में, मैं इसे हल करने के लिए कई तरीके पेश करूंगा।

इस रूप में सहेजें सुविधा के साथ प्रत्येक शीट को सीएसवी/पीडीएफ फ़ाइल के रूप में सहेजें या निर्यात करें

जैसा कि आप जानते हैं, Microsoft Excel वर्तमान वर्कशीट को एक व्यक्तिगत .csv फ़ाइल या PDF फ़ाइल के रूप में सहेज सकता है। इसलिए, आप प्रत्येक शीट को .csv फ़ाइल या PDF फ़ाइल के रूप में एक-एक करके मैन्युअल रूप से सहेज या निर्यात कर सकते हैं।

1. उस शीट पर स्विच करें जिसे आप एक व्यक्तिगत .csv फ़ाइल के रूप में सहेजेंगे या निर्यात करेंगे, और क्लिक करें पट्टिका (या कार्यालय बटन)> इस रूप में सहेजें.

2. आरंभिक संवाद बॉक्स में, वह गंतव्य फ़ोल्डर निर्दिष्ट करें जिसमें आप .csv फ़ाइल सहेजेंगे, क्लिक करें प्रकार के रूप में सहेजें बॉक्स और चयन करें सीएसवी (अल्पविराम सीमांकित) (*.सीएसवी) or पीडीएफ (* .pdf) ड्रॉप डाउन सूची से, और क्लिक करें सहेजें बटन.

3. दो चेतावनी संवाद बॉक्स क्रमिक रूप से सामने आएंगे। फिर से लॉगिन करने के लिए OK > हाँ.

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

4. अन्य शीटों को एक-एक करके अलग-अलग .csv फ़ाइलों के रूप में सहेजने के लिए उपरोक्त चरण 1-3 को दोहराएँ।

बैच प्रत्येक शीट को VBA के साथ CSV फ़ाइल के रूप में सहेजें या निर्यात करें

यदि ऐसी कई शीट हैं जिन्हें आप .csv फ़ाइलों के रूप में सहेजना या निर्यात करना चाहते हैं, तो पहली विधि काफी समय लेने वाली और थकाऊ होगी। यह VBA कार्य को सरल बना सकता है और प्रत्येक शीट को .csv फ़ाइल के रूप में सहेजना या निर्यात करना आसान बना सकता है।

1। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ।

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर निम्नलिखित VBA कोड को नई मॉड्यूल विंडो में पेस्ट करें।

वीबीए: प्रत्येक शीट को एक व्यक्तिगत सीएसवी फ़ाइल के रूप में सहेजें

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. क्लिक करें रन बटन या प्रेस F5 इस VBA को चलाने की कुंजी.

4. आरंभिक ब्राउज़ संवाद बॉक्स में, वह गंतव्य फ़ोल्डर निर्दिष्ट करें जिसमें आप सभी .csv फ़ाइलें सहेजेंगे, और क्लिक करें OK बटन.

फिर आप देखेंगे कि प्रत्येक शीट निर्दिष्ट गंतव्य फ़ोल्डर में एक व्यक्तिगत .csv फ़ाइल के रूप में सहेजी/निर्यात की गई है।

एक्सेल के लिए कुटूल के साथ प्रत्येक शीट को सीएसवी/पीडीएफ फ़ाइल के रूप में बैच सेव या निर्यात करें

कुछ Excel उपयोगकर्ता कुछ कारणों से VBA कोड को अस्वीकार कर सकते हैं। चिंता न करें! तीसरी विधि प्रत्येक शीट को .csv फ़ाइल या पीडीएफ फ़ाइल के रूप में आसानी से बैच सेव या निर्यात कर सकती है विभाजित कार्यपुस्तिका एक्सेल के लिए कुटूल की उपयोगिता।

एक्सेल के लिए कुटूल - 300 से अधिक आवश्यक उपकरणों के साथ सुपरचार्ज एक्सेल। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अब समझे

1. क्लिक करें उद्यम > कार्यपुस्तिका > विभाजित कार्यपुस्तिका.

प्रत्येक शीट को सीएसवी 2 में दस्तावेज़ित करें

2. आरंभिक स्प्लिट वर्कबुक संवाद बॉक्स में,

प्रत्येक शीट को सीएसवी 8 में दस्तावेज़ित करें

(1) सभी शीट्स का चयन करते रहें। यदि नहीं, तो आप पहले चेकबॉक्स चेक कर सकते हैं वर्कशीट का नाम सभी शीटों का चयन करने के लिए;

(2) जाँच करें सहेजें प्रारूप निर्दिष्ट करें विकल्प;

(3) नीचे दिए गए बॉक्स पर क्लिक करें सहेजें प्रारूप निर्दिष्ट करें विकल्प, और चुनें सीएसवी (मैकिंटोश)(*.सीएसवी) or पीडीएफ (* .pdf) ड्रॉप डाउन सूची से

(4) क्लिक करें विभाजित करें बटन.

 

नोट: यदि आपकी कार्यपुस्तिका में छिपी हुई और रिक्त कार्यपत्रक मौजूद हैं, तो जाँच करें छिपी हुई वर्कशीट छोड़ें बॉक्स और खाली वर्कशीट छोड़ें निर्यात करते समय बॉक्स सभी रिक्त या छिपी हुई शीटों को अनदेखा कर देगा।

एक्सेल के लिए कुटूल - 300 से अधिक आवश्यक उपकरणों के साथ सुपरचार्ज एक्सेल। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अब समझे

3. खुले फ़ोल्डर के लिए ब्राउज़ करें संवाद बॉक्स में, उस गंतव्य फ़ोल्डर को निर्दिष्ट करें जिसमें आप सभी .csv फ़ाइल या पीडीएफ फ़ाइल को सहेजेंगे, और क्लिक करें OK बटन.

अब आप देखेंगे कि प्रत्येक शीट निर्यात की गई है और निर्दिष्ट फ़ोल्डर में एक व्यक्तिगत .csv फ़ाइल के रूप में सहेजी गई है।

डेमो: एक्सेल में प्रत्येक शीट को सीएसवी/पीडीएफ फ़ाइल के रूप में सहेजें या निर्यात करें


एक्सेल के लिए कुटूल: आपकी उंगलियों पर 300 से अधिक उपयोगी उपकरण! आज ही बिना किसी सुविधा सीमा के अपना 30-दिवसीय निःशुल्क परीक्षण प्रारंभ करें। अब डाउनलोड करें!

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
Angela
Angela
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
Reply
0
0
Charlene
Charlene
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
Reply
0
0
Amanda Lee
Amanda Lee     Charlene
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
Reply
Report
0
0
prashant9810
prashant9810
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
Reply
Report
0
0
kellytte
kellytte     prashant9810
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
View Attachments (1 / 5)
Reply
Report
0
0
Pav
Pav
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
Reply
0
0
Sriraj
Sriraj     Pav
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations