كيفية تحويل ملفات CSV متعددة إلى ملفات XLS (X) دفعة واحدة في إكسيل؟
من السهل جدًا تحويل ملف CSV إلى ملف XlS أو XLSX من خلال تطبيق ميزة Save As. ومع ذلك ، فإن تحويل ملفات CSV متعددة إلى ملفات XLS أو XLSX من مجلد يستغرق وقتًا طويلاً عن طريق حفظ واحدًا تلو الآخر يدويًا. أقدم هنا رمز ماكرو لتحويل جميع ملفات CSV بسرعة إلى ملفات XLS (x) من مجلد.
دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو
دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو
لتحويل ملفات CSV متعددة من مجلد واحد إلى ملفات XLS (X) ، يمكنك القيام بالخطوات التالية:
1. قم بتمكين مصنف جديد ، اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة. انظر لقطة الشاشة:
ملاحظات: تأكد من إغلاق جميع ملفات CSV التي تريد تحويلها.
2. ثم الصق رمز الماكرو أدناه في ملف وحدة النصي والصحافة F5 مفتاح لتشغيل الكود.
VBA: تحويل CSV إلى XLS
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
3. في مربع الحوار المنبثق ، حدد المجلد المحدد الذي يحتوي على ملفات CSV التي تريد تحويلها. انظر لقطة الشاشة:
4. انقر OK، تم تحويل جميع ملفات CSV في المجلد المحدد إلى ملفات XLS فيه.
معلومه- سرية: إذا كنت تريد تحويل ملفات CSV إلى ملفات XLSX ، فأنت تستخدم رمز VBA أدناه.
VBA: تحويل ملفات CSV إلى XLSX
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
قم بتحويل أو تصدير نطاق من الورقة بسرعة لفصل ملفات XLS / Word / PDF أو ملفات التنسيق الأخرى في وقت واحد
|
عادة ، لا يدعمك Excel بخيار تصدير نطاق أو حفظه بسرعة كملف CSV أو Excel. إذا كنت تريد حفظ نطاق من البيانات كملف CSV أو مصنف في Excel ، فقد تحتاج إلى استخدام VBA Macro للقيام بذلك أو لنسخ النطاق إلى الحافظة ولصقه في مصنف جديد ثم حفظ المصنف كملف CSV أو دفتر العمل. كوتولس ل إكسيل يضاعف Excel مع نطاق التصدير إلى ملف فائدة لمستخدمي Excel الذين يرغبون في معالجة العمليات التالية بسرعة : انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات لمدة 30 يومًا! |
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30 |
مقالات ذات صلة:
- كيفية تحويل ملف CSV إلى ملف xls أو استيراد / فتح CSV في Excel؟
- كيفية تحويل مستند Word إلى ورقة عمل Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!