VBAでURL(UTF-8)エンコード

VBA

覚え書き。ネタ元はここ。

ソース

Sub URLEncode_UTF8()

    Const cnsEncStr As String = "そうのて"
    Dim sc As Object
    Dim ss As String

    Set sc = CreateObject("ScriptControl")

    With sc
        .Language = "JScript"
        ss = .CodeObject.encodeURI(cnsEncStr)
    End With

    MsgBox ss

    Set sc = Nothing

End Sub

ScriptControlでJScriptが使える様にして(表現がイマイチな感じもするが)、
後はJScriptのencodeURIメソッドをかましてURLエンコードされた値を取得って感じ。