كيف يمكن تحويل عدة ملفات Excel دفعة واحدة إلى ملفات CSV في Excel؟
يمكنك تحويل ملفات Excel إلى تنسيق CSV باستخدام خاصية «حفظ باسم»، لكن معالجة الملفات يدويًّا واحدًا تلو الآخر تستغرق وقتًا طويلاً. إذا كنت بحاجة إلى تحويل عدة ملفات Excel دفعة واحدة إلى ملفات CSV منفصلة، فهذا الدليل يقدم لك طريقتين فعّالتين:
تحويل ملفات ملفات Excel الموجودة في مجلد إلى ملفات CSV باستخدام VBA
تحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools لـ Excel 
تحويل ملفات ملفات Excel الموجودة في مجلد إلى ملفات CSV باستخدام VBA
لا تحتوي Excel على وظيفة مدمجة تؤدي هذه المهمة بسرعة، باستثناء استخدام VBA.
1. شغّل Excel، ثم اضغط علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)لإنشاء وحدة نمطية جديدة.
3. انسخ الكود أدناه والصقه في نافذة الوحدة النمطية الجديدة.
VBA: تحويل ملفات ملفات Excel دفعة واحدة إلى CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. اضغط على مفتاحF5، ثم حدد المجلد الذي يحتوي على ملفات Excel التي تريد تحويلها إلى ملفات CSV في مربع الحوار الأول الظاهر.
5. انقر علىموافق، ثم في مربع الحوار الثاني الظاهر، حدد المجلد الذي تريد حفظ ملفات CSV فيه.
6. انقر علىموافق، وسيتم تحويل ملفات Excel الموجودة في المجلد إلى ملفات CSV وحفظها في مجلد آخر.
تحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools لـ Excel
كما هو معروف، لا يمكنك في Excel تحويل المصنف بالكامل إلى ملف CSV واحد إلا باستخدام وظيفة «الحفظ باسم». لكن في بعض الأحيان، قد تحتاج إلى تحويل كل ورقة على حدة إلى ملفات CSV منفصلة. وفي مثل هذه الحالات، تأتي أداةفصل المصنفمنKutools لـ Excelلتنقذ الموقف!
1. شغّل المصنف الذي تريد تحويل أوراقه إلى ملفات CSV منفصلة، ثم انقر علىKUTOOLS PLUS > مصنف > فصل المصنف.
2. في مربع حوارفصل المصنف، حدد أسماء الأوراق التي تريد تقسيمها (تكون جميع الأوراق محددة افتراضيًّا)، ثم اختر خيارحفظ باسم، وحددCSV (*.csv) من القائمة المنسدلة.
3. انقر علىتقسيملفتح مربع حواراستعراض المجلدات (Browse For Folder)، ثم اختر مجلدًا أو أنشئ واحدًا لحفظ ملفات CSV فيه.
4. انقر علىموافق، وسيتم تقسيم المصنف تلقائيًا إلى ملفات CSV منفصلة.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: فصل المصنف باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل