طلب اصلاح كود

[أبو يحيى الجبلاوي]

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم جميعا 

اخواني الافاضل لدي كود يسمح لي بتصدير الاسماء من ملف اكسيل الى ملف امتداد vcf كي نقوم برفعها على الهاتف كجهات اتصال 

المشكلة هي على الشكل التالي الكود يعمل اذا كانت الاسماء باللغة الانكليزية اما اذا كانت باللغة العربية بيقوم بتصدير الاسماء على شكل نجمة هل يوجد حل لتصديرها بالشكل الصحيح اذا كانت لغة الاسم عربي
 
الكود هو : 
 

Private Sub Create_VCF()
    'Open a File in Specific Path in Output or Append mode
    Dim FileNum As Integer
    Dim iRow As Double
    iRow = 2
    FileNum = FreeFile
    OutFilePath = "D:\OutputVCF.vcf"
    Open OutFilePath For Output As FileNum
 
    'Loop through Excel Sheet each row and write it to VCF File
    While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
        LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
        FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
        PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))
 
        Print #FileNum, "BEGIN:VCARD"
        Print #FileNum, "VERSION:2.1"
        Print #FileNum, "N:" & LName & ";" & FName & ";;;"
        Print #FileNum, "FN:" & LName & " " & FName
        Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
        Print #FileNum, "END:VCARD"
        iRow = iRow + 1
    Wend
 
    'Close The File
    Close #FileNum
    MsgBox "Contacts Converted to Saved To: " & OutFilePath & " "
End Sub

 

 

 

 

   


 

[أحمد يوسف]

وعليكم السلام... على الرغم انك لم تقم برفع ملف توضيحى للمطلوب وهذا مخالف , الا انك يمكنك ذلك بضبط اللغة العربية لديك من خلال هذا الرابط

مشكلة في اللغة العربية

[أبو يحيى الجبلاوي]

اخي الفاضل اعتذر عن عدم ادراج ملف اخي الحبيب ليست المشكلة عندي باللغة اولا لانه لم اواجه هذه المشكلة مع برنامج ابدا والاهم من ذلك انه عند تصدير الملف الى الجوال ايضا تصدر الاسماء العربي كنجوم واما الاسماء باللغة الانكليزية لا يكون فيها اي مشكلة 
اليك الملف بالمرفقات اخي الفاضل يمكنك تجربة ذلك بنفسك  وجزاك الله خيرا على ردك 
تصدير ملف اسماء.xlsm

[الرائد77]

الملف يعمل عادي.قمت بتجريب ملفك بدون تغيير . الاسماء تصدر بالعربية عادي.

المشكل عندك في اعداادات اللغة. ادهب الى لوحة التحكم و اعدادات اللغة .كما في الصوورة

و أعد تشغيل الجهاز

[أبو يحيى الجبلاوي]

اخي الحبيب شكرا لردك اتشكرك من كل قلبي ولكن يبدو انه عندي مشكلة اخرى غير الذي تفضلت بها لانه اساس انا ضابط الاعدادات على اللغة العربية كما هو موضح بالصورة 

 

 

اخي اريد ان اتأكد من حضرتك كونك جربت الملف انا ليس لدي مشكلة بالاسماء باللغة العربية ضمن ملف الاكسيل فهي تظهر بشكل طبيعي ولكن المشكلة بعد التصدير الى ملف  vcf الذي يتم تصديره الى المسار التالي كما هو موضح بالكود 

    OutFilePath = "D:\OutputVCF.vcf"

يعني باختصار انه ضمن ملف الاكسيل الاسماء تكون صحيحة باللغة العربية اما بعد التصدير الى هذا الملف 


في هذا الملف الذي هو ناتج الكود هنا تظر مشكلة الاسماء وتظهر على شكل نجوم سواء كان على الكمبيوتر او على الجوال 

هل في هذا المف تظهر الاسماء لديك صحيحة باللغة العربية ام فقط على الاكسيل

واذا كانت تظهر في هذا الملف عندك بالشكل الصحيح فما المشكلة بما اني ضابط اللغة كما طلبت سابقا 

[الرائد77]

غير الى عربية لبلد آخر . و اعد تشغيل الجهاز .   

عند تصدير الملف . فتحته بالاوتلوك . تظهر عادي غير مشفرة

[أبو يحيى الجبلاوي]

يبدو انه لدي مشكلة لا اعلم ما هي المشكلة بالضبط غيرت اكثر من بلد ونفس المشكلة حتى على الجوال نفس المشكلة بكل الاحوال شكرا جزيلا أخي الحبيب ما قصرت شكرا من كل قلبي