كيف يمكن تصدير وحفظ كل ورقة عمل كملف Excel منفصل جديد؟
يُعدّ تصدير وحفظ أوراق العمل الفردية كمصنفات منفصلة في Excel مهمة شائعة، خاصة عند مشاركة البيانات أو تنظيمها. وعلى الرغم من أن نسخ ولصق أوراق العمل يدويًّا في ورقة عمل جديدة خيارٌ متاح، إلا أنه قد يكون مملًّا ويستغرق وقتًا طويلاً، خاصةً مع المصنفات التي تحتوي على أوراق عمل متعددة. في هذا الدليل، سنستعرض عدة طرق لتحقيق ذلك خطوة بخطوة، لمساعدتك على اختيار أفضل حل بناءً على احتياجاتك وخبرتك.
حفظ أوراق العمل كـ ورقة عمل جديدة واحدة تلو الأخرى باستخدام أمر النقل أو النسخ
باستخدام أمر «النقل أو النسخ» ، يمكنك بسرعة نقل ورقة عمل واحدة أو أكثر أو نسخها إلى مصنف جديد.
الخطوة 1: حدد اسم ورقة العمل من شريط التبويب. ولتحديد أوراق عمل متعددة، اضغط باستمرار على مفتاح «Ctrl» وانقر على علامات أوراق العمل واحدة تلو الأخرى.
الخطوة 2: انقر بزر الماوس الأيمن على اسم ورقة العمل، ثم اختر «النقل أو النسخ» من القائمة السياقية.
الخطوة 3: في مربع حوار «النقل أو النسخ»، اختر العنصر «(مصنف جديد)» من القائمة المنسدلة الخاصة بـ «نقل ورقة العمل المحددة إلى مصنف».
الخطوة 4: بعد ذلك، انقر فوق «موافق». سينتقل بك النظام تلقائيًا إلى «ورقة عمل جديدة» تحتوي على أوراق العمل المصدرة أو المنقولة؛ ثم انقر فوق «ملف» > «حفظ» لحفظ ورقة العمل الجديدة.
ملاحظة: في مربع حوار «النقل أو النسخ»، يتوفر خيار باسم «إنشاء نسخة». إذا لم تُحدِّده، فسيتم نقل الأوراق المحددة خارج المصنف الأصلي؛ أما إذا حددته، فسيتم نسخ الأوراق المحددة.
حفظ أوراق العمل دفعةً واحدة بسهولة كـ ورقة عمل جديدة باستخدام Kutools لـ Excel
إذا كانت لديك أوراق عمل متعددة تحتاج إلى حفظها كمصنفات منفصلة، فإن الطريقة الأولى ليست خيارًا جيدًا. وقد يكون رمز VBA أدناه معقدًا بعض الشيء للمبتدئين في Excel. هنا يمكنك استخدام أداة «فصل المصنف» من «Kutools لـ Excel» لحفظ كل ورقة عمل في مصنف واحد كمصنف جديد منفصل بسهولة.
بعد تثبيت Kutools لـ Excel، انقر فوق «KUTOOLS PLUS» > «مصنف» > «فصل المصنف» لفتح مربع حوار «فصل المصنف»، ثم قم بالتكوين كما يلي.
- حدد أوراق العمل التي ترغب في حفظها كأوراق عمل جديدة. افتراضيًا، تكون جميع أوراق العمل مُحدَّدة.
- يمكنك اختياريًا تخطي الأوراق المخفية وأوراق العمل الفارغة بتحديد خانات الاختيار المقابلة في قسم «الخيارات».
- انقر فوق «موافق».
- تظهر نافذة حوار «تحديد مجلد»، فاختر مجلد الوجهة الذي ترغب في حفظ ملفات ورقة العمل الجديدة فيه، ثم انقر فوق زر «تحديد مجلد».
بعد ذلك، سيتم حفظ أوراق العمل المحددة أو جميع أوراق العمل فورًا كأوراق عمل جديدة منفصلة.
- تسمح لك هذه الميزة بحفظ كل ورقة عمل كملف منفصل بصيغة TXT أو CSV أو PSF. كل ما عليك فعله هو تأشير خانة الاختيار «تحديد تنسيق الحفظ»، ثم اختيار الصيغة المناسبة من القائمة المنسدلة.
- لاستخدام هذه الميزة، يجب أن يكون لديك «Kutools لـ Excel» مثبّتًا على جهاز الكمبيوتر الخاص بك.اذهب لتنزيل Kutools لـ Excel الآن.
تصدير وحفظ أوراق العمل كـ ورقة عمل جديدة باستخدام رمز VBA
سيقوم الرمز التالي بتصدير كل ورقة عمل مرئية إلى مصنف جديد، وحفظه باسم الورقة الأصلية داخل مجلدٍ جديد تم إنشاؤه ضمن نفس مسار المصنف الحالي. يُرجى اتباع الخطوات التالية:
الخطوة 1: اضغط باستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «مايكروسوفت Visual Basic for Applications».
الخطوة 2: انقر فوق «إدراج» > «وحدة»، والصق ماكرو التالي في نافذة الوحدة:
VBA: صدّر واحفظ أوراق العمل كأوراق عمل جديدة في مجلد جديد.
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" لتشغيل هذا الرمز. بعد ذلك، ستظهر نافذة منبثقة تُبلغك بموقع المصنفات المصدرة الجديدة، حيث يتم تصدير جميع أوراق العمل من المصنف الأصلي إلى مصنفات جديدة منفصلة تحمل أسماء الأوراق الأصلية، وذلك ضمن مجلد جديد معيّن.
عرض توضيحي: تصدير وحفظ كل ورقة كـ ورقة عمل جديدة
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل