Run VBA แล้ว Error ตามรายละเอียดด้านในครับ

[kampanart]

''' WinApi function that maps a UTF-16 (wide character) string to a new character string
Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, _
ByVal cbMultiByte As Long, _
ByVal lpDefaultChar As Long, _
ByVal lpUsedDefaultChar As Long) As Long

[snasui]

เกิดจากการนำ Code 32bit มา Run กับระบบที่เป็น 64bit ครับ

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

#If Win64 And VBA7 Then
    Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _
        ByVal CodePage As LongPtr, _
        ByVal dwFlags As LongPtr, _
        ByVal lpWideCharStr As LongPtr, _
        ByVal cchWideChar As LongPtr, _
        ByVal lpMultiByteStr As LongPtr, _
        ByVal cbMultiByte As LongPtr, _
        ByVal lpDefaultChar As LongPtr, _
        ByVal lpUsedDefaultChar As LongPtr) As LongPtr
#Else
    Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
        ByVal CodePage As Long, _
        ByVal dwFlags As Long, _
        ByVal lpWideCharStr As Long, _
        ByVal cchWideChar As Long, _
        ByVal lpMultiByteStr As Long, _
        ByVal cbMultiByte As Long, _
        ByVal lpDefaultChar As Long, _
        ByVal lpUsedDefaultChar As Long) As Long
#End If

[kampanart]

เรียนอาจาร์ยครับ ผมลองปรับตามที่บอกแล้วครับ แต่ก็ยัง Error ครับ

[logic]

แนบไฟล์มาดีกว่าอาจารย์และเพื่อน ๆ จะได้ช่วยดูสะดวกครับ