本帖最後由 aarv 於 2023-12-26 23:14 編輯
發覺64bit excel行唔到,自行google後要修改vba sheet1個map UTF-16段code先得- #If VBA7 Then
- Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long) As Long
- #Else
- Private 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
- #End If
複製代碼 但咁改法唔知office 2007行唔行到,等樓主試 |