كيفية تحويل ملفات Excel متعددة إلى ملفات CSV دفعة واحدة في Excel؟
في Excel ، يمكننا تحويل المصنف إلى ملف CSV باستخدام وظيفة حفظ باسم ، ولكن هل يمكنك معرفة كيفية تحويل ملفات Excel المتعددة دفعة واحدة إلى ملفات CSV منفصلة؟ في هذه المقالة ، أقدم رمز VBA لتحويل جميع ملفات Excel في مجلد دفعة واحدة إلى ملفات CSV في Excel.
تحويل ملفات Excel دفعة واحدة من مجلد إلى ملفات CSV باستخدام VBA
قم بتحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools for Excel
تحويل ملفات Excel دفعة واحدة من مجلد إلى ملفات CSV باستخدام VBA
في Excel ، لا توجد وظيفة مضمنة يمكنها حل هذه المهمة بسرعة باستثناء VBA.
1. قم بتمكين Excel ، واضغط على ALT + F11 مفاتيح مفتوحة ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة لإنشاء وحدة جديدة.
3. انسخ الكود أدناه والصقه في نافذة الوحدة النمطية الجديدة.
فبا: دفعة تحويل ملفات 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. انقر OK، ثم في مربع الحوار الثاني ، حدد المجلد لوضع ملفات CSV.
6. انقر OK، الآن تم تحويل ملفات Excel الموجودة في المجلد إلى ملفات CSV وحفظها في مجلد آخر.
قم بتحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools for Excel
كما نعلم ، يمكننا فقط تحويل المصنف بأكمله إلى ملف CSV واحد في Excel باستخدام وظيفة Save As الخاصة به. لكن في بعض الأحيان ، تريد تحويل الورقة المفردة إلى ملف CSV ، وفي هذه الحالة ، ملف انقسام وركبوك فائدة كوتولس ل إكسيل يستطيع مساعدتك.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)
1. قم بتمكين المصنف الذي تريد تحويل أوراقه كملفات CSV منفصلة ، انقر فوق كوتولس بلس > مصنف > انقسام وركبوك.
2. في ال انقسام وركبوك مربع حوار ، تحقق من اسم الورقة الذي تريد تقسيمه (يتم فحص جميع الأوراق افتراضيًا) ، تحقق حفظ ك اكتب ، اختر CSV (Macintosh) (* .CSV) من القائمة المنسدلة.
3. انقر الانقسام لتفرقع أ تصفح بحثًا عن مجلد في مربع الحوار ، اختر أو أنشئ مجلدًا لوضع ملفات CSV.
4. انقر OK، الآن تم تقسيم المصنف كملفات CSV منفصلة.
انقسام وركبوك
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!