Note: The other languages of the website are Google-translated. Back to English

كيفية دمج / استيراد ملفات CSV متعددة في أوراق عمل متعددة؟

إذا كنت تريد استيراد ملفات csv متعددة من مجلد كأوراق عمل منفصلة داخل مصنف ، فكيف يمكنك التعامل مع هذه المهمة في Excel؟

استيراد ملفات csv متعددة في أوراق عمل منفصلة برمز VBA

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

قم بتقسيم مصنف إلى عدة ملفات csv / pdf / txt / excel منفصلة


لاستيراد ملفات csv متعددة بسرعة إلى مصنف ، قد تفيدك التعليمات البرمجية لـ VBA التالية ، يرجى القيام بما يلي:

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

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: استيراد ملفات نصية متعددة لفصل أوراق العمل:

Sub CombineCsvFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وستظهر نافذة ، انتقل إلى المجلد المحدد وحدد ملفات csv التي تريد استيرادها إلى Excel ، انظر الصورة:

doc استيراد csv إلى ورقة العمل 1

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

5. أخيرًا ، يمكنك حفظ المصنف الجديد حسب حاجتك.


إذا كان لديك كوتولس ل إكسيلبأداتها القوية-دمج، يمكنك دمج ملفات CSV متعددة أو استيرادها بسرعة في ورقة عمل واحدة أو عدة أوراق عمل منفصلة حسب حاجتك.

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

1. من فضلك اضغط كوتولس بلس > دمج، انظر لقطة الشاشة:

2. في مجلة اجمع أوراق العمل مربع الحوار ، الرجاء التحديد اجمع أوراق عمل متعددة من مصنفات في مصنف واحد، انظر لقطة الشاشة:

doc استيراد csv إلى ورقة العمل 6

3. في الخطوة2 المعالج ، انقر فوق أضف > قم بتقديم لاختيار ملفات csv التي تريد دمجها ، انظر الصورة:

doc استيراد csv إلى ورقة العمل 7

4. في خرجت اذهب الى الحوار، حدد (* CSV.) من القائمة المنسدلة ، ثم حدد ملفات csv التي تريد دمجها.

doc استيراد csv إلى ورقة العمل 8

5. ثم اضغط اذهب الى زر ، وتم استيراد ملفات csv المحددة في مربع الحوار ، انظر الصورة:

doc استيراد csv إلى ورقة العمل 9

6. في الخطوة3يرجى القيام بالعمليات التالية:

(1.) تدقيق الصف الأول من كل ورقة عمل (تعليقات) من أدخل معلومات ورقة العمل في القسم ، سيتم إدراج جميع معلومات ملفات csv في الأوراق المدمجة كتعليقات ؛

(2.) يمكنك إعادة تسمية ملفات csv حسب حاجتك ؛

(3.) يمكنك تخطي ملفات csv الفارغة عندما تصادف ملف csv فارغ.

doc استيراد csv إلى ورقة العمل 10

7. ثم اضغط نهاية ، وبعد الانتهاء من الدمج ، يمكنك تحديد اسم الملف والموقع لمصنفك المدمج الجديد. انظر لقطة الشاشة:

doc استيراد csv إلى ورقة العمل 11

8. ثم اضغط حفظ زر ، في مربع برومت المنبثق ، يمكنك فتح انقر فوق الملف الجديد نعم، وأغلقه بالنقر لا، انظر لقطة الشاشة:

doc استيراد csv إلى ورقة العمل 12

9. وبعد ذلك يمكنك حفظ هذا السيناريو أم لا كما تريد. انظر لقطة الشاشة:

doc استيراد csv إلى ورقة العمل 13

10. أخيرًا ، تم استيراد ملفات csv المحددة إلى مصنف جديد بورقة عمل منفصلة ، انظر الصورة:

doc استيراد csv إلى ورقة العمل 14

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

في حالة معينة ، قد ترغب في تقسيم مصنف إلى ملفات csv منفصلة ، يمكن لأداة Kutools for Excel's Split Workbook إنهاء هذه المهمة بسرعة وسهولة.

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

1. انقر كوتولس بلس > مصنف > انقسام وركبوك، انظر لقطة الشاشة:

2. في مجلة انقسام وركبوك صندوق المحادثة:

(1.) تحقق من أوراق العمل التي تريد تقسيمها ؛

(2.) وتحقق حدد حفظشكل، ثم اختر تنسيق الملف الذي تريد حفظه ؛

(3.) ثم انقر فوق الانقسام زر ، وحدد مجلد لوضع الملفات المنفصلة.

doc استيراد csv إلى ورقة العمل 3

3. ثم انقر فوق OK لبدء التقسيم ، سيتم تقسيم المصنف إلى ملفات csv منفصلة تحتاجها.

doc استيراد csv إلى ورقة العمل 4

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على رمز على دمج الملفات. ومع ذلك ، أرغب في الحصول على ملفات متعددة في المصنف الذي أعمل معه حاليًا ، وليس من أجل الكود لإنشاء مصنف جديد. كيف يمكنني تحقيق ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقاسم هذا الرمز. هذا هو بالضبط ما كنت أبحث عنه. للأسف أنها لا تعمل بالشكل الذي كنت أتمناه. أتلقى رسالة خطأ في كل مرة يتم فيها تشغيل الكود. خطأ: "الاسم مستخدم بالفعل. جرب اسمًا مختلفًا." ملاحظات: - أحاول دمج أربعة ملفات csv - جميع ملفات csv لها نفس الاسم "file_name.csv ، file_name (1) .csv ، إلخ ...". يجمع الكود بين أول ملفين csv في مصنف واحد و الملف الثالث في المصنف الخاص به. الملف الرابع لم يحظى بفرصة بسبب الخطأ. إذا كان لدى أي شخص بعض الأفكار حول كيفية المضي في إصلاح هذه المشكلة ، فسأكون ممتنًا للغاية لتعليقاتك. شكرا لكم جميعا مقدما لوقتك. مع أطيب التحيات ، أندرو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! كان الرمز مفيدًا جدًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك . سهل جدا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. الكود يعمل بشكل جيد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذا الماكرو vba رائع ، لكنني أريد أن يتم تشغيله بالنقر فوق زر مصنف آخر ، كيف يمكنني القيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا!
لقد كنت أستخدم هذا الكود لدمج نماذج التقييم في ورقة إكسل واحدة. ومع ذلك ، فإنه يقرأ التواريخ بالتنسيق الأمريكي MM / DD / YYYY بدلاً من التنسيق الأوروبي الذي أستخدمه ، وهو DD / MM / YYYY. النتائج عبارة عن عمود يبدو كالتالي:

11-4-2021 17:13
22/10/2021 09:41:32 (هذا هو 22 أكتوبر ، لكن لم يتم التعرف عليه)
7-12-2022 14:55 (تمت قراءة هذا خطأً على أنه 7 ديسمبر ، حيث يجب أن يكون 12 يوليو.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

كيف يمكنني منع حدوث ذلك؟ رأيت تعليقًا على وظيفة أخرى اقترح وضع "Local = True" في مكان ما ، لكنني لم أتمكن من معرفة مكان وضع ذلك بحيث يتم تحميل ملفات CSV بشكل صحيح. نقدر أي مساعدة!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL