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

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

لنفترض أن هناك عدة ملفات نصية في مجلد بجهاز الكمبيوتر الخاص بك ، الآن ، تريد استيراد هذه الملفات النصية إلى مصنف 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, النسخة الإلكترونية pdf, XLSX or XLS تنسيق الملف كما تحتاج.

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

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

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

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

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

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I had tried with a txt file where there were multiple tables with numbers saved with commas but the program did not recognize the comma as a decimal point. How can I fix this error?
This comment was minimized by the moderator on the site
What would I need to change in the code to make it not open them in a new workbook?
This comment was minimized by the moderator on the site
This code helped me exactly to solve my issue, thanks for the code.
This comment was minimized by the moderator on the site
thank you , multiple text files to different worksheets code worked!
This comment was minimized by the moderator on the site
Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
This comment was minimized by the moderator on the site
How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Is it possible to open Sequencially multiple txt files in a single sheet ?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations