كيفية دمج / استيراد ملفات CSV متعددة في أوراق عمل متعددة؟
إذا كنت تريد استيراد ملفات csv متعددة من مجلد كأوراق عمل منفصلة داخل مصنف ، فكيف يمكنك التعامل مع هذه المهمة في Excel؟
استيراد ملفات csv متعددة في أوراق عمل منفصلة برمز VBA
قم باستيراد ملفات CSV متعددة في أوراق عمل منفصلة باستخدام Kutools for Excel
قم بتقسيم مصنف إلى عدة ملفات csv / pdf / txt / excel منفصلة
استيراد ملفات csv متعددة في أوراق عمل منفصلة برمز VBA
لاستيراد ملفات csv متعددة بسرعة إلى مصنف ، قد تفيدك التعليمات البرمجية لـ VBA التالية ، يرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 في Excel لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: استيراد ملفات نصية متعددة لفصل أوراق العمل:
Sub CombineCsvFiles()
'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 (*.csv), *.csv", , "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
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
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 مفتاح لتنفيذ هذا الرمز ، وستظهر نافذة ، انتقل إلى المجلد المحدد وحدد ملفات csv التي تريد استيرادها إلى Excel ، انظر الصورة:
4. ثم انقر فوق ساعات العمل ، فقد تم استيراد ملفات CSV المحددة كأوراق عمل منفصلة داخل مصنف جديد.
5. أخيرًا ، يمكنك حفظ المصنف الجديد حسب حاجتك.
قم باستيراد ملفات CSV متعددة في أوراق عمل منفصلة باستخدام Kutools for Excel
إذا كان لديك كوتولس ل إكسيلبأداتها القوية-دمج، يمكنك دمج ملفات CSV متعددة أو استيرادها بسرعة في ورقة عمل واحدة أو عدة أوراق عمل منفصلة حسب حاجتك.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. من فضلك اضغط كوتولس بلس > دمج، انظر لقطة الشاشة:
2. في مجلة اجمع أوراق العمل مربع الحوار ، الرجاء التحديد اجمع أوراق عمل متعددة من مصنفات في مصنف واحد، انظر لقطة الشاشة:
3. في الخطوة الثالثة المعالج ، انقر فوق أضف > قم بتقديم لاختيار ملفات csv التي تريد دمجها ، انظر الصورة:
4. في خرجت ساعات العمل الحوار، حدد (* CSV.) من القائمة المنسدلة ، ثم حدد ملفات csv التي تريد دمجها.
5. ثم اضغط ساعات العمل زر ، وتم استيراد ملفات csv المحددة في مربع الحوار ، انظر الصورة:
6. في الخطوة الثالثةيرجى القيام بالعمليات التالية:
(1.) تدقيق الصف الأول من كل ورقة عمل (تعليقات) من أدخل معلومات ورقة العمل في القسم ، سيتم إدراج جميع معلومات ملفات csv في الأوراق المدمجة كتعليقات ؛
(2.) يمكنك إعادة تسمية ملفات csv حسب حاجتك ؛
(3.) يمكنك تخطي ملفات csv الفارغة عندما تصادف ملف csv فارغ.
7. ثم اضغط نهاية وبعد الانتهاء من عملية الجمع، يمكنك تحديد اسم الملف وموقع المصنف الجديد الذي تم جمعه. انظر لقطة الشاشة:
8. ثم اضغط حفظ زر ، في مربع برومت المنبثق ، يمكنك فتح انقر فوق الملف الجديد نعم، وأغلقه بالنقر لا، انظر لقطة الشاشة:
9. وبعد ذلك يمكنك حفظ هذا السيناريو أم لا كما تريد. انظر لقطة الشاشة:
10. أخيرًا ، تم استيراد ملفات csv المحددة إلى مصنف جديد بورقة عمل منفصلة ، انظر الصورة:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
قم بتقسيم مصنف إلى عدة ملفات csv / pdf / txt / excel منفصلة
في حالة معينة ، قد ترغب في تقسيم مصنف إلى ملفات csv منفصلة ، يمكن لأداة Kutools for Excel's Split Workbook إنهاء هذه المهمة بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس بلس > مصنف > انقسام وركبوك، انظر لقطة الشاشة:
2. في مجلة انقسام وركبوك صندوق المحادثة:
(1.) تحقق من أوراق العمل التي تريد تقسيمها ؛
(2.) وتحقق حدد حفظشكل، ثم اختر تنسيق الملف الذي تريد حفظه ؛
(3.) ثم انقر فوق الانقسام زر ، وحدد مجلد لوضع الملفات المنفصلة.
3. ثم انقر فوق OK لبدء التقسيم ، سيتم تقسيم المصنف إلى ملفات csv منفصلة تحتاجها.
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!