2017年09月15日

URI(URL)エンコード・デコード Excel版

最近、GETの値を含んだURI付きのメールを送る必要が生じました。
で、ざっくり調べた感じ、VBAにはURIエンコード・デコードをする関数はないようです。……が、どうやら、javascriptのコンポーネントを使うのが一般的なようなので、関数を作って置きました。

Function EncodeURI(OriginalStr As String) As String
Dim js As Object
Set js = CreateObject("ScriptControl")
js.language = "Jscript"
EncodeURI = js.codeobject.encodeURIComponent(OriginalStr)
End Function

Function DecodeURI(OriginalStr As String) As String
Dim js As Object
Set js = CreateObject("ScriptControl")
js.language = "Jscript"
DecodeURI = js.codeobject.decodeURIComponent(OriginalStr)
End Function
posted by 貝貝 at 13:24| Comment(0) | Internet | このブログの読者になる | 更新情報をチェックする