مشكلة اللغه العربية فى ملف الاكسيل الذي تم تصديره من جهاز البصمه

[Mohamed Altantawy]

الساده الافاضل خبراء الاكسيل عندي مشكل عند تصدير ملف اكسيل من جهاز بصمه الحضور اجد الاسماء العربيه  مكتوبه برموز مش حروف وبالاخص على اوفيس 2010  والاحدث منه مما يضطرنى للعمل فقط على اوفيس 2007 لانه الوحيد الذي لا تظهر به هذه المشكل 

فهل لديكم حل لذلك

مرفق مثال من الملف

وشكرا

3333.xls

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

يمكنك استعمال هذه الدالة لتحويل النص العربي من رموز غريبة إلى utf8

وذلك بإضافة هذا الكود في موديول جديد في شاشة الفيجوال بيسك للتطبيقات vba

بالضغط على alt+f11 ثم من قائمة insert نختار module ثم نلصق هذا الكود

Function masAr2Utf(inputStr As String) As String
Dim n As Integer, i As Integer, inBytes() As Byte, sUnicode As String
n = Len(inputStr)
ReDim inBytes(n + 1)
For i = 1 To n
    inBytes(i) = AscB(Mid(inputStr, i, 1))
Next
sUnicode = StrConv(inBytes, vbUnicode, &H401)
iPos = InStr(sUnicode, Chr(0))
If iPos > 0 Then sUnicode = Mid(sUnicode, iPos + 1)
masAr2Utf = sUnicode
End Function

وطريقة استدعائها في الشيت

نكتب في الخلية المراد ظهور النص العربي بها

=masAr2Utf(B2)

بالتوفيق