Excel|如何在VBA中对字符串进行escape编码和解码?

Q：如何在VBA中对字符串进行escape编码和解码?
A：调用JS的escape()函数或者unescape()函数可以轻松解决。
代码如下：

1. Function xyf_escape(str)
   
2.     Dim obj
   
3.     Set obj = CreateObject("ScriptControl")
   
4.     With obj
   
5.         .Language = "JavaScript"
   
6.          xyf_escape = .Eval("escape(""" & str & """)")
   
7.     End With
   
8.     Set obj = Nothing
   
9. End Function
   
10. Sub xyf()
    
11.     MsgBox xyf_escape("阿莫西林")
    
12. End Sub
    

复制代码