VBA 函数无法在 Excel 2007 中返回阿拉伯字符串

解决方案：使用VBA函数返回阿拉伯字符串

Function ConvertToArabic(ByVal str As String) As String
    Dim i As Long
    Dim result As String
    
    For i = 1 To Len(str)
        result = result & ChrW(AscW(Mid(str, i, 1)))
    Next i
    
    ConvertToArabic = result
End Function

Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Function ConvertToArabic(ByVal str As String) As String
    Dim i As Long
    Dim result As String
    Dim codePage As Long
    Dim dwFlags As Long
    Dim lpMultiByteStr As Long
    Dim cchMultiByte As Long
    Dim lpWideCharStr As Long
    Dim cchWideChar As Long
    
    codePage = 65001 ' UTF-8
    dwFlags = 0
    lpMultiByteStr = StrPtr(str)
    cchMultiByte = Len(str)
    lpWideCharStr = 0
    cchWideChar = MultiByteToWideChar(codePage, dwFlags, lpMultiByteStr, cchMultiByte, lpWideCharStr, 0)
    
    If cchWideChar > 0 Then
        lpWideCharStr = VarPtr(result)
        MultiByteToWideChar codePage, dwFlags, lpMultiByteStr, cchMultiByte, lpWideCharStr, cchWideChar
        result = StrConv(result, vbUnicode)
    End If
    
    ConvertToArabic = result
End Function

Sub TestConvertToArabic()
    Dim str As String
    Dim result As String
    
    str = "ريبيقي"
    result = ConvertToArabic(str)
    
    MsgBox result
End Sub