كيفية تحويل ملفات 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