Excel: حفظ أو تصدير جميع الأوراق إلى ملفات CSV أو نصية منفصلة (طريقتان سهلتان)

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

حفظ أو تصدير جميع الأوراق إلى ملفات CSV أو نصية باستخدام كود VBA
حفظ أو تصدير جميع الأوراق / الأوراق المحددة إلى ملفات CSV أو نصية باستخدام Kutools لـ Excel

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

مع الأكواد البرمجية VBA أدناه، يمكنك حفظ جميع أوراق العمل في مصنف إلى ملفات CSV أو نصية منفصلة. يرجى اتباع الخطوات التالية.

تصدير أو تحويل جميع الأوراق إلى ملفات CSV منفصلة

1. اضغط على مفتاح Alt + F11 معًا لفتح نافذة تطبيق Microsoft Visual Basic.

2. في نافذة تطبيق Microsoft Visual Basic، انقر فوق إدراج > وحدة. ثم قم بنسخ ولصق الكود التالي في نافذة الوحدة.

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود. سترى أن جميع ملفات CSV المصدرة موجودة في مجلد المستندات. تم حفظ كل ورقة عمل كملف .csv منفصل بنفس اسم الورقة. انظر لقطة الشاشة:

تصدير أو تحويل جميع الأوراق إلى ملفات نصية منفصلة

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

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

توجد الملفات النصية المصدرة أيضًا في مجلد المستندات. انظر لقطة الشاشة:

حفظ أو تصدير جميع الأوراق / الأوراق المحددة إلى ملفات CSV أو نصية باستخدام Kutools لـ Excel

يقدم Kutools لـ Excel ميزة قوية وسهلة الاستخدام لتصدير جميع الأوراق أو الأوراق المحددة إلى ملفات CSV أو نصية منفصلة بنقرات قليلة فقط.

1. انقر فوق Kutools Plus > مصنف > فصل المصنف. انظر لقطة الشاشة:

2. في مربع حوار فصل المصنف:

• 1). إذا كنت تريد تحويل جميع الأوراق إلى ملفات CSV أو نصية، احتفظ بتحديد جميع أسماء الأوراق في مربع اسم الورقة؛ وإذا كنت تريد تحويل أوراق متعددة فقط، استمر في تحديد الأوراق التي تريدها وقم بإلغاء تحديد الأوراق الأخرى التي لا تريد تحويلها.
• 2). في قسم الخيارات، قم بتحديد مربع حفظ كـ ثم اختر نص يونيكود (*.txt) أو CSV (Macintosh)(*.csv) من القائمة المنسدلة.
• 3). انقر على زر الفصل.

3. في مربع حوار تصفح المجلد، حدد مجلدًا لحفظ الملفات المصدرة، ثم انقر على زر موافق.

الآن تم تحويل جميع الأوراق أو الأوراق المحددة إلى ملفات CSV أو نصية منفصلة، وتوجد في المجلد الذي حددته أعلاه.

عرض توضيحي: حفظ، تصدير أو تحويل أوراق متعددة / جميع الأوراق إلى ملفات CSV أو نصية باستخدام Kutools لـ Excel