vbscript - Excel VBA から .vbs スクリプトを呼び出す

Question

必要に応じて、VBA コードから .vbs スクリプトを呼び出すことはできますか? 可能であれば、その方法のサンプルコードを教えていただけますか?

Answer 1

ファイルを実行するには:

Shell "wscript c:\null\a.vbs", vbNormalFocus

VBS がコンソールを使用する場合は、wscriptに置き換えます。cscript

または、 Microsoft Script Controlへの参照を追加し、VBScript ランタイムと直接やり取りして、VBS コードやプロシージャなどを実行することもできます。

Dim scr As ScriptControl: Set scr = New ScriptControl
scr.Language = "VBScript"
scr.AddCode "sub T: msgbox ""All Hail Cthulhu"": end sub"
scr.Run "T"

Answer 2

アレックスの答えに追加したいのは、一部の環境では、オブジェクトを次の方法で作成する必要があるということだけです。

set scr = CreateObject("MSScriptControl.ScriptControl")

アレックスがこれを彼の回答に追加した場合、私はこれを削除します。