نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية دفعة تحويل ملفات Excel متعددة إلى ملفات CSV في Excel؟

في Excel ، يمكننا تحويل المصنف إلى ملف CSV باستخدام وظيفة Save as ، ولكن هل يمكنك معرفة كيفية تحويل ملفات Excel متعددة إلى ملفات CSV منفصلة؟ في هذه المقالة ، أعرض شفرة VBA لدفعة تحويل جميع ملفات Excel في مجلد إلى ملفات CSV في Excel.

دفعة تحويل ملفات Excel من مجلد إلى ملفات CSV مع VBA

قم بتحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools for Excelفكرة جيدةنومك

الاستعراض المبوب وتحرير العديد من مصنفات Excel / مستندات Word مثل Firefox و Chrome و Internet Explore 10!

قد تكون معتادًا على عرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها بالنقر على علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab عملية المعالجة المماثلة ، والتي تسمح لك باستعراض مصنفات Excel المتعددة أو مستندات Word في إطار Excel واحد أو إطار Word ، والتبديل بينها بسهولة بالنقر فوق علامات التبويب الخاصة بها. انقر للحصول على نسخة تجريبية مجانية من 30 لمدة يوم من علامة تبويب Office!

بعد التمديد

دفعة تحويل ملفات Excel من مجلد إلى ملفات CSV مع VBA

في Excel ، لا توجد وظيفة مضمنة يمكن حل هذه المهمة بسرعة ما عدا VBA.

1. قم بتمكين Excel ، واضغط ALT + F11 مفاتيح مفتوحة ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة نمطية جديدة.

3. انسخ أدناه رمز ولصقها إلى إطار الوحدة النمطية الجديد.

VBA: تحويل ملفات Excel إلى CSV

مصنفات SubSaveAsCsvToFolder () 'UpdatebyExtendoffice20181031 Dim xObjWB كـ مصنف Dim Dim xStrEFPath كـ ورقة عمل Dim باهت xStrEFPath باسم سلسلة Dim xStrEFFile باسم سلسلة Dim Dim xObjFD باسم FileDialog Dim xOjjFFD كما FileDialog Dim xStrSPath باسم سلسلة Dim xStrCSVFName باسم سلسلة Application.ScreenUpdating = False Application.EnableEvents = تطبيق False. حساب = xlCalculationManual On Error Resume Next Set xObjFD = Application.FileDialog (msoFileDialogFolderPicker) xObjFD.AllowMultiSelect = False xObjFD.Title = "Kutools for Excel - حدد مجلدًا يحتوي على ملفات Excel" If xObjFD.Show <> -1 Then Exit Sub xStrEFPath = xObjFD.SelectedItems (1) & "\" Set xObjSFD = Application.FileDialog (msoFileDialogFolderPicker) xObjSFD.AllowMultiSelect = False xObjSFD.Title = "Kutools for Excel - حدد مجلدًا لتحديد موقع ملفات CSV" إذا كان xObjSFD.Show <> -1 ثم قم بإنهاء Sub xStrSPath = xObjSFD.SelectedItems (1) & "\" xStrEFFile = Dir (xStrEFPath & "* .xls *") هل أثناء xStrEFFile <> "" تعيين xObjWB = المصنف s.Open (Filename: = xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left (xStrEFFile، InStr (1، xStrEFFile، ".") - 1) & ".csv" xObjWB.SaveAs اسم الملف: = xStrCSVFName، FileFormat: = xlCSV xObjWB . إغلاق عمليات الاغلاق: = False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

4. صحافة F5 ، حدد المجلد الذي يحتوي على ملفات Excel التي تريد تحويلها إلى ملفات CSV في مربع حوار popping الأول.
دفعة وثيقة ل CSV 1

5. انقر OK، ثم في مربع حوار popping الثاني ، حدد المجلد لوضع ملفات CSV.
دفعة وثيقة ل CSV 2

6. انقر OK، الآن ملفات Excel في المجلد تم تحويلها إلى ملفات CSV وحفظها في مجلد آخر.
دفعة وثيقة ل CSV 3


قم بتحويل أوراق المصنف إلى ملفات CSV منفصلة باستخدام Kutools for Excel

كما هو معروف ، لا يمكننا تحويل المصنف بأكمله إلا إلى ملف CSV واحد في Excel باستخدام وظيفة Save As. ولكن في بعض الأحيان ، تريد تحويل ورقة واحدة إلى ملف CSV ، في هذه الحالة ، سبليت وركبوك فائدة كوتولس ل إكسيل يستطيع مساعدتك.

كوتولس ل إكسيل, مع أكثر من 200 وظائف يدوية، يجعل وظائف أسهل.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام على النحو التالي:(تحميل مجاني كوتولس ل إكسيل الآن!)

1. قم بتمكين المصنف الذي تريد تحويل أوراقه كملفات CSV منفصلة ، انقر فوق كوتولس بلاس > مصنف > سبليت وركبوك.
دفعة وثيقة ل CSV 4

2. في ال سبليت وركبوك الحوار ، والتحقق من اسم الورقة التي تريد تقسيمها (يتم فحص جميع الأوراق بشكل افتراضي) ، تحقق حفظ ك اكتب ، اختر CSV (Macintosh) (* .CSV) من القائمة المنسدلة.
دفعة وثيقة ل CSV 5

3. انقر الانقسام لتخرج تصفح للحافظة ، اختر أو أنشئ مجلدًا لوضع ملفات CSV.
دفعة وثيقة ل CSV 6

4. انقر OK، الآن تم تقسيم المصنف كملفات CSV منفصلة.
دفعة وثيقة ل CSV 7


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sam · 4 months ago
    Another small remark:

    If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
    For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.

    How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
    I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:

    Cells.Select
    Selection.NumberFormat = "@"
  • To post as a guest, your comment is unpublished.
    Sam · 5 months ago
    Works great, thanks for the code!
    My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
  • To post as a guest, your comment is unpublished.
    Aman · 9 months ago
    Ty it really works dear !!