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 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。