VBAでURLエンコード

gistfile1.txt

Function UrlEncodeUtf8(str As String) As String
    Dim script As Object
    Set script = CreateObject("ScriptControl")
    script.Language = "Jscript"
    UrlEncodeUtf8 = script.CodeObject.encodeURIComponent(str)
End Function

記事化を期待してもいいですか？(･∀･)ﾆﾔﾆﾔ

x64 版を出さないと M$ が明言した段階で死亡宣告なので、ScriptControl の記事化は基本無いです。

しかし、わずか2ヶ月前にこんな記事を書いている人もいる。
VBAでスクリプトエンジンを直接動かす
面白いですね。

x64 版を出さないと M$ が明言した段階で死亡宣告なので、ScriptControl の記事化は基本無いです。

ざんねーん

VBAでスクリプトエンジンを直接動かす

コードをコピペしただけじゃ動かないですねw

コードをコピペしただけじゃ動かないですねw

はい。記事末尾に書いてある通り、自分でタイプライブラリ作らないといけないです。
タイプライブラリはふつう MKTYPLIB.EXE で .odl から作りますが、Visual Studio （というか、Visual C++） 持ってないと、このユーティリティは無かったような（元記事執筆者さんの環境は VS 6.0 と思われる。最近の VS には MKTYPLIB.EXE 付いてない模様）。
なので、持ってない人は、誰かが作った tlb を DL して使うことになります。

ま、でも ScriptControl を使えば済む 32bit 版ユーザーにとっては、今のところ関係ない話ですけどね。

あ～もうぜんぜんついていけません。
YU-TANGさんすごいっすね。

お蔭様で、ここでやり取っているうちに、64bit 環境でURLエンコードする別の方法を思いついたので、暇になったら書きます。
(しかし検証ができんな…)

マジッすか。ぜひぜひ。