「Excel URLデコード 方法」
という検索が行われていました。
ExcelでURLデコードを行う方法を探している検索です。
このサイト・インストラクターのネタ帳では、Windows 2000以降のWindowsに標準で含まれているScriputControlを使ったユーザー定義関数を作ってやればUTF-8によるURLエンコードができることをご紹介しています。
同じ理屈でVBA(Visal Basic for Applications)を使ったユーザー定義関数を作成すれば、ExcelでURLデコードも可能です。
Public Function URL_Decode(ByVal strOrg As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
URL_Decode = .CodeObject.decodeURI(strOrg)
End With
JScriptのdecodeURIメソッドを呼んでいるだけのユーザー定義関数です。
ご紹介すみのURLエンコードを行うユーザー定義関数の
.CodeObject.encodeURI(strOrg)
を
.CodeObject.decodeURI(strOrg)
にしただけです。
▼サンプルファイル(003799.xls 30KByte)ダウンロード
サンプルファイルではA列に元の文字列、B列にご紹介済みのユーザー定義関数を使ってURLエンコードした文字列、C列に今回ご紹介したユーザー定義関数でデコードして元の文字列が表示されるようにしてあります。
- Newer:文字数カウントのショートカットキー−Ctrl+Shift+Gキー
- Older:マスタを編集したはずなのに
Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » URLデコードを行う