كيفية تحويل ملفات 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. انقر فوق إدراج > وحدة لإنشاء وحدة جديدة.
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 Sub
4. اضغط F5 اختر المجلد الذي يحتوي على ملفات Excel التي تريد تحويلها إلى ملفات CSV في أول نافذة حوار تظهر.
5. انقر موافق، ثم في النافذة الحوارية الثانية، اختر المجلد لوضع ملفات CSV.
6. انقر موافق، الآن تم تحويل ملفات Excel داخل المجلد إلى ملفات CSV وحفظها في مجلد آخر.
تحويل أوراق عمل المصنف إلى ملفات CSV منفصلة باستخدام Kutools لـ Excel
كما نعلم، يمكننا فقط تحويل المصنف بالكامل إلى ملف CSV واحد في Excel باستخدام وظيفة حفظ كـ. في بعض الأحيان، قد تحتاج إلى تحويل الأوراق الفردية إلى ملفات CSV. في مثل هذه الحالات، يمكن أن تساعد أداة تقسيم المصنف من Kutools لـ Excel.
1. قم بتشغيل المصنف الذي تريد تحويل أوراقه إلى ملفات CSV منفصلة، انقر Kutools Plus > Workbook > تقسيم المصنف.
2. في تقسيم المصنف النافذة الحوارية، حدد اسم الورقة التي تريد تقسيمها (جميع الأوراق يتم تحديدها بشكل افتراضي)، وحدد حفظ كـ النوع، واختر CSV (Macintosh) (*.csv) من القائمة المنسدلة.
3. انقر تقسيم لإظهار نافذة حوار تصفح للمجلد اختر أو أنشئ مجلدًا لوضع ملفات CSV.
4. انقر موافق، وسيتم تقسيم المصنف إلى ملفات CSV منفصلة.
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
عرض توضيحي: تقسيم المصنف باستخدام Kutools لـ EXCEL
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!