كيفية تحويل ملفات 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
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
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 <> ""
Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)
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
End Sub
4. صحافة F5 المفتاح ، حدد المجلد الذي يحتوي على ملفات Excel التي تريد تحويلها إلى ملفات CSV في مربع الحوار الأول.
5. انقر OK، ثم في مربع الحوار الثاني ، حدد المجلد لوضع ملفات CSV.
6. انقر OK، الآن تم تحويل ملفات Excel الموجودة في المجلد إلى ملفات CSV وحفظها في مجلد آخر.
قم بتحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools for Excel
كما نعلم ، يمكننا فقط تحويل المصنف بأكمله إلى ملف CSV واحد في Excel باستخدام وظيفة Save As الخاصة به. لكن في بعض الأحيان ، تريد تحويل الورقة المفردة إلى ملف CSV ، وفي هذه الحالة ، ملف انقسام وركبوك فائدة كوتولس ل إكسيل يستطيع مساعدتك.
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:（تنزيل مجاني Kutools for Excel الآن!)
1. قم بتمكين المصنف الذي تريد تحويل أوراقه كملفات CSV منفصلة ، انقر فوق كوتولس بلس > مصنف > انقسام وركبوك.
2. في ال انقسام وركبوك مربع حوار ، تحقق من اسم الورقة الذي تريد تقسيمه (يتم فحص جميع الأوراق افتراضيًا) ، تحقق حفظ ك اكتب ، اختر CSV (Macintosh) (* .CSV) من القائمة المنسدلة.
3. انقر الانقسام لتفرقع أ تصفح بحثًا عن مجلد في مربع الحوار ، اختر أو أنشئ مجلدًا لوضع ملفات CSV.
4. انقر OK، الآن تم تقسيم المصنف كملفات CSV منفصلة.
انقسام وركبوك
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
