注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel vba调用js将UTF-8编码转换为汉字  

2013-05-11 22:07:23|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/123039471201341110723637/

许久没有研究Excel,或许是因为没有挑战性的问题吧~

脑壳都要生锈了,不过,有什么问题难得到我的呢?(太不要脸了-_-!#)

随手写个2个自定义函数,完成……

'法一:调用JS
Function UTF8toChineseCharacters(szInput)
    Set js = CreateObject("MSScriptControl.ScriptControl")
    js.Language = "JavaScript"
    js.AddCode "function decode(str){return unescape(str.replace(/\u/g,'%u'));}"
    UTF8toChineseCharacters = js.Eval("decode('" & szInput & "')")
End Function


'法二:使用ChrW函数
Function myChrW(szInput)
    On Error Resume Next
    Dim str As String
    Dim code() As String
    code = Split(Replace(Trim(szInput), "\u", "\&H"), "\")
    'If Not UBound(code) < 1 Then
    For Each i In code
        If i <> "" Then str = str & ChrW(i)
    Next
    'End If
    myChrW = str
End Function

附上问题:

发信人: Uriel (八郎,无微不至), 信区: OfficeSoft
标  题: excel可以做utf-8的decode吗?
发信站: 水木社区 (Sat May 11 19:12:06 2013), 站内

把这样的字符:\u73e0\u6d77,转换为这样的字符:珠海

 

  评论这张
 
阅读(10394)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017