如何将汉字转换为网站URL用的utf-8编码

futai2012

想做个批量查询，查询时需要将姓名转换为utf-8编码，比如：傅晓宇%e5%82%85%e6%99%93%e5%ae%87，杨帆%e6%9d%a8%e5%b8%86。弄了好久都没搞定，求高手帮忙，如何用VBA完成这个功能？

excelhoe

同问，我也是

YZC51

请测试
Public Function Escape(ByVal strText As String) As String
    Set JS = CreateObject("msscriptcontrol.scriptcontrol")
    JS.Language = "JavaScript"
    Escape1 = JS.Eval("encodeURIComponent('" & Replace(Replace(strText, "'", "\'"), Chr(10), "") & "');")
End Function

硅谷少年

Vba实现解析json数据。当中的关于Set oSC = CreateObject("MSScriptControl.ScriptControl") 不能创建对象的问题。 - gxg123 - 博客园
https://www.cnblogs.com/gxgd/p/9240232.html

然后这段写成这样就OK，office2016 64位亲测OK：
Function Escape(ByVal strText As String) As String
    Set JS = CreateObjectx86("msscriptcontrol.scriptcontrol")
    JS.Language = "JavaScript"
    Escape = JS.Eval("encodeURIComponent('" & Replace(Replace(strText, "'", "\'"), Chr(10), "") & "');")
End Function

duquancai

这是UTF-8编码吗？？？

huang1314wei

Excel 2013及其以上版本，可以使用自带的ENCODEURL函数，使用方法简单，直接  =ENCODEURL("你好")   把汉字你好转换成URL编码

硅谷少年

huang1314wei 发表于 2019-3-21 18:03
Excel 2013及其以上版本，可以使用自带的ENCODEURL函数，使用方法简单，直接  =ENCODEURL("你好")   把汉字 ...

是啊，对比了下我自己写的函数，效果一样，您不说我还真没想到这样解决。。。另外64位office有 microsoft script control 1.0 ，但我不知道如何通过createobject引用。

fxl447098457

硅谷少年 发表于 2019-3-22 14:11
是啊，对比了下我自己写的函数，效果一样，您不说我还真没想到这样解决。。。另外64位office有 microsoft ...

64位office无法正常使用的。Tablacus Script Control 64这个可以解决，我发过一个帖子。看别人测试过的都说可以用了。调用和语法跟微软的一模一样。createobject("scriptcontrol")就可以了。

硅谷少年

fxl447098457 发表于 2019-3-22 16:49
64位office无法正常使用的。Tablacus Script Control 64这个可以解决，我发过一个帖子。看别人测试过的都 ...

能附上你的那个帖子链接么？谢谢。疑难问题多交流不同的解决方案。

fxl447098457

硅谷少年 发表于 2019-3-25 09:10
能附上你的那个帖子链接么？谢谢。疑难问题多交流不同的解决方案。

http://club.excelhome.net/thread-1418713-1-1.html