اذهب الي المحتوي
أوفيسنا

طلب اصلاح كود


إذهب إلى أفضل إجابة Solved by أحمد يوسف,

الردود الموصى بها

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

اخواني الافاضل لدي كود يسمح لي بتصدير الاسماء من ملف اكسيل الى ملف امتداد 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

 

 


image.png.aac756f83c1206858ff09f45c875ea95.png

 

 

image.png.df3f97726ff88b1bf829ea051a5eb4d3.png   


 

image.png

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 2
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

5555.png

  • Like 1
رابط هذا التعليق
شارك

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

 

 

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

    OutFilePath = "D:\OutputVCF.vcf"

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

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information