Note: The other languages of the website are Google-translated. Back to English

كيفية تصدير كل ورقة عمل وحفظها كمصنف جديد منفصل في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

فرز التعليقات حسب
التعليقات (63)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا ، يعمل بشكل جيد جدا وسهل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يعجبني الرمز ، هل من الممكن فقط حفظ المصنف الجديد بدون معلومات التاريخ ، لذلك عندما أقوم بإعادة حفظ الأوراق في المصنف السابق ، سيكون لدي خيار الكتابة فوق التغييرات بدلاً من إنشاء مجلد مؤرخ آخر؟ أيضًا ولكن ليس من الأهمية بمكان كيف يمكنني استخدام اسم ووجهة أخرى لمجلد الوجهة Regards Sean
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً. أحسنت!.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد طريقة لتغيير هذا الماكرو حتى يمكنني حفظه في ملف في مجلد XLSTART ولكنه سيتم تشغيله للمصنف النشط؟ في كل مرة أقوم بحفظه في مصنف XLSTART فإنه يفشل في DateString = Format (الآن ، "yyyy-mm-dd hh-mm-ss"). شكرًا! كيث
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، هل يمكن لأي شخص مساعدتي أدناه. أحتاج إلى رمز VBA الذي يمكنه نسخ جميع الأوراق المرئية فقط إلى مصنف جديد ويجب ألا ينسخ رمز الماكرو إلى مصنف جديد ، وحفظ مصنف جديد على سطح المكتب بقيمتين مختلفتين للخلية في اسم الورقة والورقة كاسم ملف وإغلاق المصنف الرئيسي بدون إنقاذ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. هذا هو بالضبط ما احتاجه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود فشل في sh.Copy ولا يمكنني معرفة السبب. أيه أفكار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز مثالي لما أحتاجه ، ولكن هل يمكنك إظهار رمز للعملية نفسها بالضبط لورقة واحدة بدلاً من المصنف بأكمله؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعمل أكواد VBA مثل السحر ، ولكن هل هناك طريقة للقيام بذلك باستخدام VBScript؟ أنا ذاهب إلى المكسرات في محاولة لتلبية متطلبات مشرفي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكر. تيريماكسيه. رمز ini yang saya butuhkan
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا مفيد جدا! أحب رمز VBA
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Muy buena la aplicacion. Es una pena no موجود tambien en Español. جراسياس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لسوء الحظ ، لم يعمل رمز VBA بالنسبة لي. اضطررت إلى تصحيح الأخطاء وكانت المشكلة مع السطر: Application.ActiveWorkbook.SaveAs xFile ، FileFormat: = FileFormatNum أي أفكار لماذا لم تنجح معي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مقال رائع - عمل VBA لأول مرة - ممتاز
تم تصغير هذا التعليق بواسطة المشرف على الموقع
xWs.Copy- هو خطأ من جانبي ماذا يعني ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خطأ وقت التشغيل فشل الأسلوب 'نسخة من كائن' ورقة العمل '
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من بين الطرق الثلاثة المذكورة أعلاه ، وجدت أن الطريقة الأولى جيدة تمامًا مع مراعاة حقيقة أنني مبتدئ وأن عملي ليس بنفس الحجم مثل المحترفين. خالص شكري لشرح الخطوات بطريقة بسيطة وواضحة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا أيضًا تصدير جميع الأوراق (300+) إلى html ، فهذا سيساعدني كثيرًا ، والتصدير إلى نص موحد يساعد بالفعل ولكني أحتاجها في html ، أو لا توجد حدود للجدول لاختلافات الخلايا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كودك يعمل معي ... شكرا جزيلا !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً. تلقيت رمز خطأ نصه "خطأ في الترجمة: إجراء خارجي غير صالح" ... مساعدة!
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL