Excel Forum

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