انتقل إلى المحتوى الرئيسي

كيفية دمج / استيراد ملفات 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 يومًا. تنزيل وتجربة مجانية الآن!

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
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

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations