كيف يمكن استيراد عدة ملفات نصية إلى أوراق عمل منفصلة؟
افترض أن لديك عدة ملفات نصية في مجلد على جهاز الكمبيوتر الخاص بك، وترغب الآن في استيرادها جميعًا إلى مصنف Excel، بحيث يوضع كل ملف نصي في ورقة عمل منفصلة. إن نسخ ولصق كل ملف نصي يدويًّا إلى ورقة تلو الأخرى يستغرق وقتًا طويلاً؛ لذا سأعرض لك هنا بعض الحيل الذكية لحل هذه المشكلة بسرعة وسهولة.
استيراد عدة ملفات ملف نصي إلى أوراق عمل منفصلة باستخدام كود VBA
تقسيم مصنف إلى عدة ملفات منفصلة بصيغة نصية / PDF / CSV / XLSX باستخدام Kutools لـ Excel
استيراد عدة ملفات ملف نصي إلى أوراق عمل منفصلة باستخدام كود VBA
قد يساعدك كود VBA التالي على استيراد كل ملف ملف نصي إلى أوراق عمل منفصلة داخل ملف ورقة عمل جديدة دفعة واحدة، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيحALT + F11 في Excel لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي في نافذةوحدة البرمجة (Module).
كود 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. بعد ذلك، انقر على زرفتح (Open)، وسيتم استيراد جميع الملفات النصية المحددة إلى ملف ورقة عمل جديد، بحيث يكون كل ملف في ورقة عمل منفصلة.
5. وأخيرًا، يمكنك حفظ الملف كورقة عمل جديدة بالشكل الذي تريده.
تقسيم مصنف إلى عدة ملفات منفصلة بصيغة نصية / PDF / CSV / XLSX باستخدام Kutools لـ Excel
في بعض الأحيان، قد تحتاج إلى تنفيذ عملية عكسية لما سبق، أي تقسيم مصنف إلى ملفات نصية منفصلة. يمكن لأداةKutools لـ Excelالخاصة بـفصل المصنفمساعدتك في إنجاز هذه المهمة بسرعة وسهولة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. فعّل المصنف الذي تريد تقسيمه إلى عدة ملفات نصية.
2. انقر فوقEnterprise > المصنف (Workbook) > فصل المصنف، انظر لقطة الشاشة:
3. في مربع الحوارفصل المصنف:
(1.) حدد أوراق العمل التي ترغب في تقسيمها.
(2.) فعّل خيارتحديد صيغة الحفظ، ثم اختر نوع الملف الذي تريد حفظ الملفات به. على سبيل المثال، يمكنك اختيارtxt،csv،pdf،xlsx أوxls حسب حاجتك.
(3.) بعد ذلك، انقر فوق زرتقسيم (Split)، ثم في مربع التحذير الظاهر، حدد مجلدًا لحفظ الملفات المنفصلة فيه.
 |  |  |
4. بعد ذلك، انقر على زرموافق (OK)، وسيتم تقسيم المصنف إلى الأوراق المحددة وحفظه في المجلد المطلوب بالصيغة التي حددتها.
Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل