من السهل جدًا تحويل ملف CSV إلى ملف XlS أو XLSX من خلال تطبيق ميزة Save As. ومع ذلك ، فإن تحويل ملفات CSV متعددة إلى ملفات XLS أو XLSX من مجلد يستغرق وقتًا طويلاً عن طريق حفظ واحدًا تلو الآخر يدويًا. أقدم هنا رمز ماكرو لتحويل جميع ملفات 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 |
