主题：[分享] Json使用DataTable简例

也可以用javescrip过度一下的，就是麻烦一些。

Dim text As String = "123一二三"
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toUrl() {return encodeURI('" & text & "')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    text = .Run("toUrl")
End With

msgbox(text)