انتقل إلى المحتوى الرئيسي

كيفية تصدير كل ورقة عمل وحفظها كمصنف جديد منفصل في Excel؟

لنفترض أنك تريد تصدير وحفظ ورقة عمل واحدة أو عدة أوراق عمل كمصنف جديد ، كيف ستتعامل معها؟ عادة يمكنك نسخ كل ورقة عمل ولصقها في مصنف جديد. ولكن هنا نقدم لك بعض الحيل المفيدة للتعامل معها:

تصدير وحفظ أوراق العمل كمصنف جديد باستخدام أمر النقل أو النسخ

قم بتصدير أوراق العمل وحفظها كمصنف جديد برمز VBA

تصدير وحفظ أوراق العمل كمصنف جديد باستخدام Kutools for Excel فكرة جيدة 3


السهم الأزرق الحق فقاعة تصدير وحفظ أوراق العمل كمصنف جديد باستخدام أمر النقل أو النسخ

باستخدام نقل أو نسخ سيساعدك الأمر في تصدير أو نسخ ورقة عمل واحدة أو عدة أوراق عمل إلى مصنف جديد بسرعة.

الخطوة 1: حدد أسماء أوراق العمل في شريط علامات التبويب. يمكنك تحديد عدة مع الاستمرار في الضغط CTRL مفتاح أو نقل الرئيسية.

الخطوة 2: انقر بزر الماوس الأيمن فوق اسم ورقة العمل ، وانقر فوق نقل أو نسخ من قائمة السياق.
أوراق تصدير المستندات 1

الخطوة 3: في نقل أو نسخ في مربع الحوار ، حدد ملف (كتاب جديد) عنصر من القائمة المنسدلة لـ نقل الأوراق المحددة للحجز.

أوراق تصدير المستندات 2

الخطوة 4: ثم انقر فوق OK، الآن قمت بالتبديل إلى مصنف جديد مع أوراق العمل المصدرة أو المنسوخة ، انقر فوق قم بتقديم > حفظ لحفظ المصنف الجديد.

ملحوظة: في مجلة نقل أو نسخ مربع الحوار ، هناك ملف قم بإنشاء نسخة اختيار. إذا لم تقم بالتحقق منه ، فسيتم نقل أوراق العمل المحددة من المصنف الأصلي ؛ إذا قمت بالتحقق منه ، فسيتم نسخ أوراق العمل المحددة.


يمكنك تقسيم أوراق العمل المتعددة بسرعة إلى مصنف منفصل في Excel

في Microsoft Excel ، يمكنك حفظ ورقة عمل أو تقسيمها من مصنف واحد كملف Excel جديد عن طريق نسخ ورقة العمل هذه ولصقها في مصنف جديد. يبدو الأمر مزعجًا ، إذا كنت تريد تقسيم كل ورقة / ورقة عمل لمصنف كبير كملفات Excel و txt و csv و pdf منفصلة. ولكن مع كوتولس ل إكسيلالصورة انقسام وركبوك فائدة ، يمكنك التعامل معها بسرعة.  انقر للحصول على نسخة تجريبية مجانية مدتها 30 يومًا مع الميزات الكاملة!
doc انقسام المصنف 1
 
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

السهم الأزرق الحق فقاعة قم بتصدير أوراق العمل وحفظها كمصنف جديد برمز VBA

ستقوم التعليمات البرمجية التالية بتصدير كل ورقة عمل مرئية في مصنف جديد وحفظ المصنف باسم الورقة الأصلية في مجلد تم إنشاؤه حديثًا في نفس المسار مثل المصنف النشط. يرجى القيام بالخطوات التالية:

الخطوة شنومكس: اضغط باستمرار ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الخطوة شنومك: انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية:

فبا: تصدير أوراق العمل وحفظها كمصنف جديد في مجلد جديد.

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

الخطوة شنومك: اضغط على F5 مفتاح لتشغيل هذا الرمز. وسيظهر مربع موجه لإخبارك بموقع المصنفات الجديدة التي تم تصديرها ، وقد تم تصدير جميع أوراق العمل الخاصة بالمصنف الأصلي إلى بعض المصنفات المنفصلة الجديدة التي تسمى الأوراق الأصلية في مجلد محدد جديد. انظر لقطات الشاشة:

أوراق تصدير المستندات 7

السهم الأزرق الحق فقاعة تصدير وحفظ أوراق العمل كمصنف جديد باستخدام Kutools for Excel

إذا كان لديك أوراق عمل متعددة تحتاج إلى حفظها كمصنف منفصل ، فلا يمكن أن تكون الطريقة الأولى اختيارًا جيدًا. وقد يكون رمز VBA معقدًا بعض الشيء للمبتدئين في Excel. هنا يمكنك استخدام ملف انقسام وركبوك فائدة كوتولس ل إكسيل لتصدير كل ورقة عمل من مصنف واحد وحفظها بسرعة وسهولة لفصل مصنف جديد.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

الخطوة شنومك: انقر كوتولس بلس > مصنف > انقسام المصنف .... انظر لقطة الشاشة:
أوراق تصدير المستندات 3

الخطوة 2: في ملف انقسام وركبوك في مربع الحوار ، افعل ما يلي:

أوراق تصدير المستندات 4
1: تم التحقق من جميع أسماء أوراق العمل افتراضيًا ، إذا كنت لا تريد تقسيم بعض أوراق العمل ، فيمكنك إلغاء تحديدها ؛


2: إذا كنت تريد تجنب تقسيم أوراق العمل المخفية أو الفارغة ، فيمكنك التحقق من ملف تخطي أوراق العمل المخفية or تخطي أوراق العمل الفارغة


3: ويمكنك أيضًا التحقق حدد حفظ ، ولتحديد تقسيم الأوراق ثم حفظها كملف نصي أو ملف pdf أو ملف csv ، بشكل افتراضي ، إذا لم تقم بتحديد هذا الخيار ، فسيتم تقسيم الأوراق وحفظها كمصنف.

الخطوة 3: ثم انقر فوق الانقسام ، واختر المجلد الذي تريد وضع المصنفات الجديدة فيه. انظر لقطة الشاشة:
أوراق تصدير المستندات 6

الخطوة 4: ثم انقر فوق OK، ثم تم فحص كل ورقة عمل في ملف انقسام وركبوك يتم تصدير مربع الحوار وحفظه كمصنف فردي. يتم تسمية كل مصنف جديد باسم ورقة العمل الأصلية. انظر لقطة الشاشة:
أوراق تصدير المستندات 5

انقر لمعرفة المزيد من المعلومات حول أداة Split Workbook هذه.

السهم الأزرق الحق فقاعة تصدير وحفظ كل ورقة كمصنف جديد


قم بتقسيم البيانات بسرعة إلى أوراق عمل متعددة بناءً على عمود أو صفوف ثابتة في Excel

لنفترض أن لديك ورقة عمل تحتوي على بيانات في الأعمدة من A إلى G ، فإن اسم البائع موجود في العمود A وتحتاج إلى تقسيم هذه البيانات تلقائيًا إلى أوراق عمل متعددة استنادًا إلى العمود A في نفس المصنف وسيتم تقسيم كل بائع إلى ملف جديد ورقة عمل. كوتولس ل إكسيلالصورة تاريخ الانقسام يمكن أن تساعدك الأداة المساعدة على تقسيم البيانات بسرعة إلى أوراق عمل متعددة بناءً على العمود المحدد كما هو موضح أدناه لقطة الشاشة في Excel.  انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات لمدة 30 يومًا!
doc تقسيم البيانات 2
 
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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