محتاج مساعده تحويل ملف اكسيل الي اسماء صيغه جهات اتصال CSV

elokely · سبتمبر 28, 2022

السلام عليكم

محتاج مساعده تحويل ملف اكسيل الي صيغه جهات اتصال CSV والملف مرفق ولكم جزيل الشكر تم تنزيل البيانات من حسابي علي الفيس بوك وتحويل الي ملف اكسيل فقط اريد مساعده بتحويلها الي صيغه اسماء هاتف

ملف الاكسيل المحول من وورد.xls

**محمد هشام.** · سبتمبر 28, 2022

السلام عليكم ورحمة الله تعالى وبركاته

جرب اخي انشاء مجلد في اي مكان على الجهاز وقم بوضع الملف بداخله ثم اضف الكود التالي

Sub convert_to_CSV()
    Dim st As Worksheet
    Dim path As String
 
    Application.ScreenUpdating = False
    path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
 
    For Each st In Worksheets
        st.Copy
        ActiveWorkbook.SaveAs Filename:=path & "_" & st.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        ActiveWorkbook.Close False
    Next
 
    Application.ScreenUpdating = True
End Sub

اليك الملف عليه الكود كما سبق الدكر ضعه في مجلد منفضل وقم بتشغيل الكود

بالتوفيق.....

ملف الاكسيل المحول من وورد.xlsm