2,462
社区成员
发帖
与我相关
我的任务
分享VBA如何对URL中的汉字编码？？
在JS中，使用url来向web server请求的时候，需要用encodeURI来对其中的汉字进行编码，否则会出乱码。
VBA中有没有相应的函数？
VBA中有没有相应的函数？
...全文
请发表友善的回复…
发表回复
cxz7531 2012-08-03
- 打赏
- 举报
已经解决了
xjg811 2012-07-20
- 打赏
- 举报
VBA中自己没有encodeURI类似功能的函数，上述
Function Escape是移花接木，但好用。
Function Escape是移花接木，但好用。
xjg811 2012-07-20
- 打赏
- 举报
这个函数，我是在excelhome看到的。
在VBA中好用。
在VBA中好用。
xjg811 2012-07-20
- 打赏
- 举报
不知可是这个：
Public Function Escape(ByVal strText As String) As String
Set JS = CreateObject("msscriptcontrol.scriptcontrol")
JS.Language = "JavaScript"
Escape = JS.Eval("encodeURI('" & Replace(strText, "'", "\'") & "');")
End Function
错了莫怪，我是菜鸟
Public Function Escape(ByVal strText As String) As String
Set JS = CreateObject("msscriptcontrol.scriptcontrol")
JS.Language = "JavaScript"
Escape = JS.Eval("encodeURI('" & Replace(strText, "'", "\'") & "');")
End Function
错了莫怪，我是菜鸟
