كيفية استيراد ملفات نصية متعددة إلى أوراق متعددة؟
لنفترض أن هناك عدة ملفات نصية في مجلد بجهاز الكمبيوتر الخاص بك ، الآن ، تريد استيراد هذه الملفات النصية إلى مصنف 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 مفتاح لتشغيل هذا الرمز ، وفي النافذة المنبثقة ، يرجى تحديد المجلد الذي يحتوي على الملفات النصية ، انتقل إلى المجلد لتحديد الملفات النصية التي تريد استيرادها إلى أوراق العمل ، انظر لقطة الشاشة:
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.) ثم انقر فوق الانقسام الزر ، في مربع المطالبة التالي ، حدد مجلدًا لإخراج الملفات المنفصلة.
4. ثم اضغط OK الزر ، وسيتم تقسيم أوراق العمل المحددة الخاصة بك وحفظها في المجلد الذي تريده بالتنسيق الذي تريده.
تحميل مجاني Kutools لبرنامج Excel الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!