This is working for me, but the file extension is not changing. Any tips?
-
To post as a guest, your comment is unpublished.
-
To post as a guest, your comment is unpublished.
من السهل جدًا تحويل ملف 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 |