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

or

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

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

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

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


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

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


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

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

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

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

Sub CombineTextFiles()
'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 (*.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 مفتاح لتشغيل هذا الرمز، وفي نافذة برزت خارج، يرجى تحديد المجلد الذي يحتوي على الملفات النصية، انتقل إلى المجلد لتحديد الملفات النصية التي تريد استيرادها إلى أوراق العمل، انظر قطة:

دوك استيراد ملفات نصية متعددة شنومكس

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

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


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

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

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

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

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

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

التفوق الوظائف الإضافية تقسيم المصنف الميزة

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

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

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

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

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

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

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

تحميل مجانا كوتولس ل إكسيل الآن!


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.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?