vba 64位office Excel不用ActiveX ScriptControl转换为UTF8

转换为UTF8"/>

vba 64位office Excel不用ActiveX ScriptControl转换为UTF8

实现将日语文字转换为utf8编码功能的过程中，起初采用ActiveX部件创建scriptObject对象，直接使用encodeURIComponent来转换字符编码。但在使用过程中，有同事用64位的officeExcel，遇到在64位office上不能使用ActiceX部件，所以更换方法，直接对字符进行编码。记笔记。代码如下：

'使用ActiveX创建scriptObject对象转换字符编码，注意64位office不支持

Public Function UrlEncodeUtf8(ByRef strSource As String) As String
On Error GoTo err5Dim objScript As ObjectSet objScript = CreateObject("ScriptControl")objScript.Language = "Jscript"'JavaScriptのencodeURIComponent関数で変換UrlEncodeUtf8 = objScript.CodeObject.encodeURIComponent(strSource)Set objScript = NothingExit Functionerr5:Set objScript = NothingMsgBox message_box("ERROR_202") + Err.Description
End Function