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

or

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

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

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

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

تقسيم مصنف إلى عدة ملفات كسف / بدف / تكست / إكسيل منفصلة


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

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

دوك استيراد كسف إلى ورقة العمل شنومك

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!



لاستيراد ملفات كسف متعددة بسرعة إلى مصنف، قد يكون لك رمز فبا التالي صالح، يرجى القيام بما يلي:

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

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

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

Sub CombineCsvFiles()
'updateby Extendoffice 20151015
    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 مفتاح لتنفيذ هذا الرمز، وسوف برزت نافذة خارج، انتقل إلى مجلد معين وحدد ملفات كسف التي تريد استيرادها إلى إكسيل، انظر الصورة:

دوك استيراد كسف إلى ورقة العمل شنومك

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

5. وأخيرا، يمكنك حفظ المصنف الجديد ما تحتاج إليه.


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

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

1. من فضلك اضغط مشروع > دمج، انظر الصورة:

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

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

(شنومكس.) يمكنك إعادة تسمية ملفات كسف كما تحتاج؛

(شنومكس.) يمكنك تخطي ملفات كسف فارغة عند ترميز ملف كسف فارغ.

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

10. أخيرا، تم استيراد ملفات كسف التي تم اختيارها إلى مصنف جديد مع ورقة عمل منفصلة، ​​راجع لقطة شاشة:

دوك استيراد كسف إلى ورقة العمل شنومك

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

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

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

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

دوك استيراد كسف إلى ورقة العمل شنومك

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

دوك استيراد كسف إلى ورقة العمل شنومك

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


Kutools لـ Excel - أفضل أداة إنتاجية في Office تزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 60.
علامة التبويب 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.
    Rohit · 5 months ago
    Thank you . Very handy
  • To post as a guest, your comment is unpublished.
    Amit · 5 months ago
    Thank you! The code was very useful
  • To post as a guest, your comment is unpublished.
    Andrew · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    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?