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

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

لنفترض أن هناك عدة ملفات نصية في مجلد بجهاز الكمبيوتر الخاص بك ، الآن ، تريد استيراد هذه الملفات النصية إلى مصنف Excel ، ووضع كل ملف نصي في أوراق عمل منفصلة. سيؤدي نسخ ولصق كل ملف نصي إلى ورقة العمل واحدًا تلو الآخر إلى إهدار الكثير من الوقت ، وهنا يمكنني التحدث عن بعض الحيل لحل هذه المشكلة.

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

قم بتقسيم مصنف إلى عدة ملفات نصية / pdf / csv / xlsx منفصلة باستخدام Kutools for Excel


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

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

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

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

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

Sub CombineTextFiles()
'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 (*.txt), *.txt", , "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
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    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 مفتاح لتشغيل هذا الرمز ، وفي النافذة المنبثقة ، يرجى تحديد المجلد الذي يحتوي على الملفات النصية ، انتقل إلى المجلد لتحديد الملفات النصية التي تريد استيرادها إلى أوراق العمل ، انظر لقطة الشاشة:

doc استيراد ملفات نصية متعددة 1

4. ثم اضغط اذهب الى ، تم استيراد جميع الملفات النصية المحددة إلى مصنف جديد وكل ملف موجود في ورقة عمل واحدة على حدة.

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


السهم الأزرق الحق فقاعة قم بتقسيم مصنف إلى عدة ملفات نصية / pdf / csv / xlsx منفصلة باستخدام Kutools for Excel

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

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

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

1. قم بتنشيط المصنف الذي تريد تقسيمه إلى ملفات نصية متعددة.

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

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

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

(2.) تحقق حدد تنسيق الحفظ، ثم اختر تنسيق الملف الذي تريد حفظه ، على سبيل المثال ، يمكنك اختيار TXT, CSV, قوات الدفاع الشعبي, XLSX or XLS تنسيق الملف كما تحتاج.

(3.) ثم انقر فوق الانقسام الزر ، في مربع المطالبة التالي ، حدد مجلدًا لإخراج الملفات المنفصلة.

مربع حوار تقسيم المصنف للوظائف الإضافية في Excel 2 اكسل الوظائف الاضافيه حدد الموقع

4. ثم اضغط OK الزر ، وسيتم تقسيم أوراق العمل المحددة الخاصة بك وحفظها في المجلد الذي تريده بالتنسيق الذي تريده.

Excel الوظائف الإضافية ملفات منفصلة

تحميل مجاني Kutools لبرنامج Excel الآن!


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت الكود التالي ولكن الفضاء لم يحدد. علامة تبويب مقلوبة: = صحيح ، مسافة: = صحيح ، لكنها لم تنجح. تنسيق ملف Txt الخاص بي هو- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 أي حل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل رمز "استيراد ملفات نصية متعددة لفصل أوراق العمل باستخدام رمز VBA" بالنسبة لي ، ولكن يقطع بيانات كل خلية عند 255 حرفًا. أعتقد أنه يتم تعيينه افتراضيًا إلى بيانات الخلية GeneralFormat ، لكنني بحاجة إلى أن يكون تنسيق TextFormat. لسوء الحظ ، لا يمكنني معرفة كيفية ضبط الكود لإصلاح ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن فتح ملفات txt متعددة بالتسلسل في ورقة واحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا الرمز المفيد جدا. برغم من ذلك عندي سؤال. ما يمكنني تغييره لتحويل نوع البيانات من عام إلى نص لأنه حاليًا يستورد البيانات فقط إلى تنسيق عام.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير وحدات الماكرو هذه لعرض ملف نصي محفوظ بتنسيق UTF-8 أو بعبارة أخرى باستخدام النظام الأساسي = 65001 ، شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على هذا الرمز ، هذا يعمل بشكل رائع .. أريد دمج كل الأوراق المحددة في ورقة واحدة ، هل هذا ممكن ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك ، نجحت ملفات نصية متعددة لأوراق عمل مختلفة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ساعدني هذا الرمز في حل مشكلتي بالضبط ، شكرًا على الكود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما الذي أحتاج إلى تغييره في التعليمات البرمجية حتى لا تفتحها في مصنف جديد؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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