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

एक्सेल में प्रत्येक वर्कशीट को अलग नई वर्कबुक के रूप में कैसे निर्यात और सहेजें?

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

मान लीजिए कि आप एक या कई वर्कशीट को नई वर्कबुक के रूप में निर्यात और सहेजना चाहते हैं, तो आप इससे कैसे निपटेंगे? आम तौर पर आप प्रत्येक वर्कशीट को कॉपी करके नई वर्कबुक में पेस्ट कर सकते हैं। लेकिन यहां हम आपके लिए इससे निपटने के लिए कुछ उपयोगी तरकीबें लेकर आए हैं:

मूव या कॉपी कमांड के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें

VBA कोड के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें

एक्सेल के लिए कुटूल के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें अच्छा विचार3


तीर नीला दायां बुलबुला मूव या कॉपी कमांड के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें

ऊपर दिए ले जाएं या कॉपी करें कमांड आपको एक या कई वर्कशीट को नई वर्कबुक में जल्दी से निर्यात या कॉपी करने में मदद करेगा।

चरण 1: टैब बार में वर्कशीट नाम चुनें। आप नीचे दबाकर एकाधिक का चयन कर सकते हैं कंट्रोल कुंजी या पाली कुंजी।

चरण 2: वर्कशीट नाम पर राइट क्लिक करें, और क्लिक करें ले जाएं या कॉपी करें संदर्भ मेनू से.
दस्तावेज़ निर्यात पत्रक 1

चरण 3: में ले जाएं या कॉपी करें संवाद बॉक्स, का चयन करें (नई पुस्तक) की ड्रॉप डाउन सूची से आइटम चयनित शीट को बुक करने के लिए ले जाएँ.

दस्तावेज़ निर्यात पत्रक 2

चरण 4: फिर क्लिक करें OK, अब आप पर स्विच कर चुके हैं नई कार्यपुस्तिका निर्यातित या कॉपी की गई वर्कशीट के साथ, क्लिक करें पट्टिका > सहेजें नई कार्यपुस्तिका को सहेजने के लिए.

नोट: में ले जाएं या कॉपी करें डायलॉग बॉक्स, एक है एक कॉपी बनाएं विकल्प। यदि आप इसकी जाँच नहीं करते हैं, तो यह चयनित कार्यपत्रकों को मूल कार्यपुस्तिका से बाहर कर देगा; यदि इसकी जाँच करें, तो यह चयनित कार्यपत्रकों की प्रतिलिपि बना लेगा।


Excel में अनेक कार्यपत्रकों को त्वरित रूप से अलग कार्यपुस्तिका में विभाजित करें

माइक्रोसॉफ्ट एक्सेल में, आप इस वर्कशीट को एक नई वर्कबुक में कॉपी और पेस्ट करके एक वर्कबुक से एक नई एक्सेल फ़ाइल के रूप में वर्कशीट को सेव या विभाजित कर सकते हैं। यदि आप किसी बड़ी वर्कबुक की प्रत्येक शीट/वर्कशीट को अलग-अलग एक्सेल, टीएक्सटी, सीएसवी, पीडीएफ फाइलों के रूप में विभाजित करना चाहते हैं तो यह परेशानी भरा लगता है। लेकिन इसके साथ एक्सेल के लिए कुटूलहै विभाजित कार्यपुस्तिका उपयोगिता, आप इससे शीघ्रता से निपट सकते हैं।  संपूर्ण सुविधाओं के साथ 30 दिनों के निःशुल्क परीक्षण के लिए क्लिक करें!
दस्तावेज़ विभाजित कार्यपुस्तिका 1
 
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क।

तीर नीला दायां बुलबुला VBA कोड के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें

यह निम्नलिखित कोड प्रत्येक दृश्यमान वर्कशीट को एक नई कार्यपुस्तिका में निर्यात करेगा और सक्रिय कार्यपुस्तिका के समान पथ में नए बनाए गए फ़ोल्डर में मूल शीट के नाम के साथ कार्यपुस्तिका को सहेजेगा। कृपया निम्न चरणों का पालन करें:

चरण 1: नीचे रखें ALT + F11 कुंजियाँ, और यह खुल जाती है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

चरण 2: क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित मैक्रो चिपकाएँ:

वीबीए: वर्कशीट को एक नए फ़ोल्डर में नई वर्कबुक के रूप में निर्यात और सहेजें।

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

चरण 3: दबाएं F5 इस कोड को चलाने की कुंजी. और एक प्रॉम्प्ट बॉक्स आपको नई निर्यात की गई कार्यपुस्तिकाओं का स्थान बताने के लिए पॉप अप होगा, और मूल कार्यपुस्तिका की सभी कार्यपत्रकों को कुछ नई अलग कार्यपुस्तिकाओं में निर्यात किया गया है, जिन्हें एक नए विशिष्ट फ़ोल्डर में मूल पत्रक का नाम दिया गया है। स्क्रीनशॉट देखें:

दस्तावेज़ निर्यात पत्रक 7

तीर नीला दायां बुलबुला एक्सेल के लिए कुटूल के साथ वर्कशीट को नई वर्कबुक के रूप में निर्यात करें और सहेजें

यदि आपके पास अलग-अलग कार्यपुस्तिका के रूप में सहेजने के लिए आवश्यक एकाधिक कार्यपत्रक हैं, तो पहली विधि एक अच्छा विकल्प नहीं हो सकती है। और वीबीए कोड एक्सेल के शुरुआती लोगों के लिए थोड़ा जटिल हो सकता है। यहां आप इसका उपयोग कर सकते हैं विभाजित कार्यपुस्तिका की उपयोगिता एक्सेल के लिए कुटूल नई वर्कबुक को अलग करने के लिए एक वर्कबुक की प्रत्येक वर्कशीट को जल्दी और आसानी से निर्यात और सहेजना।

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

चरण 1: क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > कार्यपुस्तिका विभाजित करें.... स्क्रीनशॉट देखें:
दस्तावेज़ निर्यात पत्रक 3

चरण 2: में विभाजित कार्यपुस्तिका संवाद बॉक्स, नीचे दिए अनुसार करें:

दस्तावेज़ निर्यात पत्रक 4
1: सभी वर्कशीट नाम डिफ़ॉल्ट रूप से जांचे गए हैं, यदि आप कुछ वर्कशीट को विभाजित नहीं करना चाहते हैं, तो आप उन्हें अनचेक कर सकते हैं;


2: यदि आप छिपी हुई या रिक्त वर्कशीट को विभाजित होने से बचाना चाहते हैं, तो आप इसकी जाँच कर सकते हैं छिपी हुई वर्कशीट छोड़ें or रिक्त कार्यपत्रक छोड़ें.);


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

चरण 3: फिर क्लिक करें विभाजित करें बटन, और वह फ़ोल्डर चुनें जिसमें आप नई कार्यपुस्तिकाएँ रखना चाहते हैं। स्क्रीनशॉट देखें:
दस्तावेज़ निर्यात पत्रक 6

चरण 4: और फिर क्लिक करें OK, फिर प्रत्येक चेक की गई वर्कशीट में विभाजित कार्यपुस्तिका संवाद बॉक्स को निर्यात किया जाता है और व्यक्तिगत कार्यपुस्तिका के रूप में सहेजा जाता है। प्रत्येक नई कार्यपुस्तिका का नाम मूल कार्यपत्रक नाम से रखा जाता है। स्क्रीनशॉट देखें:
दस्तावेज़ निर्यात पत्रक 5

इस स्प्लिट वर्कबुक टूल के बारे में अधिक जानकारी जानने के लिए क्लिक करें.

तीर नीला दायां बुलबुला प्रत्येक शीट को नई कार्यपुस्तिका के रूप में निर्यात करें और सहेजें


एक्सेल में कॉलम या निश्चित पंक्तियों के आधार पर डेटा को त्वरित रूप से कई वर्कशीट में विभाजित करें

मान लीजिए कि आपके पास एक वर्कशीट है जिसमें कॉलम ए से जी तक डेटा है, सेल्समैन का नाम कॉलम ए में है और आपको स्वचालित रूप से इस डेटा को उसी वर्कबुक में कॉलम ए के आधार पर कई वर्कशीट्स में विभाजित करने की आवश्यकता है और प्रत्येक सेल्समैन को एक नए में विभाजित किया जाएगा वर्कशीट. एक्सेल के लिए कुटूलहै विभाजन तिथि उपयोगिता आपको एक्सेल में दिखाए गए नीचे दिए गए स्क्रीनशॉट के अनुसार चयनित कॉलम के आधार पर डेटा को कई वर्कशीट में जल्दी से विभाजित करने में मदद कर सकती है।  पूर्ण-विशेषताओं वाले 30 दिनों के निःशुल्क परीक्षण के लिए क्लिक करें!
दस्तावेज़ विभाजित डेटा 2
 
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क।

संबंधित आलेख:

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations