لدي عدة ملفات اكسل اريد تحويلها الى صيغة csv

[عبد الله السعيد]

هل هناك طريقة سريعة لتحويل العديد من الملفات اكثر من 10 ملفات  الى صيغة  csv  بدلا من فتح كل ملف وتحويله بمفرده

[أ / محمد صالح]

يمكنك وضع جميع ملفات الاكسل المطلوب تحويلها في مجلد باسم xls بنفس مسار الملف الذي به هذا الكود

وإنشاء مجلد باسم csv بنفس مسار الملف الذي به هذا الكود

واستدعاء الاجراء Mas_Xls2Csv

Sub Mas_Xls2Csv()
Dim xObjWB As Workbook
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xStrSPath As String
Dim xStrCSVFName As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
xStrEFPath = ThisWorkbook.Path & "\xls\"
xStrSPath = ThisWorkbook.Path & "\csv\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
    Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)
    xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
    xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVUTF8
    xObjWB.Close savechanges:=False
    xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق 

[عبد الله السعيد]

اخي الغالي 

انا بالفعل عملت فولدر على سكح المكتب واسمته D    ووضعت به كما في الصورة    ، وفتحت الملف الفارغ ووضعت به الكود  وطبقت الكود  وجائت في النهاية رسالة  Done   ولكن عند فتح المجلد CSV
وجدته فاغ ولم يتم تحويل الملفات

[أ / محمد صالح]

يفضل إرفاق ملفك وأمثلة من الملفات المراد تحويلها في مجلد xls

لمعرفة مكان الخطأ

[عبد الله السعيد]

D.rar

 

هذا ملفات افتراضية فارغة للتسهيل  بارك الله فيك

[أ / محمد صالح]

لا يوجد أي مشكلة 

تم التحويل بدون اي أخطاء 

 

D.zip

[عبد الله السعيد]

بالفعل اخي الغالي

ربما الملفات لدي فيها مشكلة