كيفية استيراد ملفات نصية متعددة إلى أوراق عمل متعددة؟
لنفترض أن لديك عدة ملفات نصية في مجلد على جهاز الكمبيوتر الخاص بك، وتريد الآن استيراد هذه الملفات النصية إلى مصنف Excel، ووضع كل ملف نصي في أوراق عمل منفصلة. نسخ ولصق كل ملف نصي إلى ورقة عمل واحدة تلو الأخرى يستهلك الكثير من الوقت؛ هنا، سأناقش بعض الحيل لحل هذه المشكلة.
استيراد ملفات نصية متعددة إلى أوراق عمل منفصلة باستخدام كود VBA
تقسيم مصنف إلى ملفات نصية / PDF / CSV / XLSX منفصلة باستخدام Kutools لـ Excel
استيراد ملفات نصية متعددة إلى أوراق عمل منفصلة باستخدام كود VBA
قد يساعدك الكود التالي من VBA في استيراد كل ملف نصي إلى أوراق عمل منفصلة داخل مصنف جديد دفعة واحدة، يرجى القيام بما يلي:
1. اضغط مع الاستمرار على مفتاحي ALT + F11 في Excel لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: استيراد ملفات نصية متعددة إلى أوراق عمل منفصلة:
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 لـ Excel
أحيانًا قد تحتاج إلى تنفيذ عمليات عكسية للمهمة أعلاه، بمعنى آخر، تحتاج إلى تقسيم مصنف إلى ملفات نصية منفصلة. يمكن أن تساعدك أداة تقسيم المصنف من Kutools لـ Excel في حل هذه المهمة بسرعة وسهولة.
بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:
1. قم بتفعيل المصنف الذي تريد تقسيمه إلى ملفات نصية متعددة.
2. انقر فوق المؤسسة > المصنف > تقسيم المصنف، انظر إلى الصورة التوضيحية:
3. في مربع الحوار تقسيم المصنف:
(1.) حدد الأوراق التي تريد تقسيمها.
(2.) حدد خيار تحديد تنسيق الحفظ، ثم اختر تنسيق الملف الذي تريد حفظه، على سبيل المثال، يمكنك اختيار تنسيق ملف txt أو csv أو pdf أو xlsx أو xls حسب الحاجة.
(3.) ثم انقر فوق زر التقسيم، في مربع الحوار المنبثق حدد مجلدًا لحفظ الملفات المنفصلة.
 |  |  |
4. ثم انقر فوق زر موافق، وسيتم تقسيم الأوراق المحددة وحفظها في المجلد المطلوب بالتنسيق الذي تحتاجه.
Kutools لـ Excel - مزود بأكثر من 300 أدوات أساسية لبرنامج Excel. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! قم بالتنزيل الآن!
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد