VBAでWindows Script Hostを利用する
VBA:Visual Basic for Applicationsで「Windows Script Host」を利用する方法。「Windows Script Host」を利用することでデスクトップのパスや、MS-DOSコマンドを実行したりすることが簡単にできるようになります。
１つめの方法は、CreateObject関数で「Windows Script Host」オブジェクトを生成する方法。この場合はオブジェクトを生成するコードを記述するだけで利用できますが、コードヒントなどの入力支援機能は利用できません。
''デスクトップのパスを取得
Dim wsh_ As Variant, desktopPath_ As String
Set wsh_ = CreateObject("WScript.Shell")
desktopPath_ = wsh_.SpecialFolders("Desktop")
Set wsh_ = Nothingもうひとつの方法は、参照設定を行って、参照設定オブジェクトを生成する方法です。こちらはコードヒントなどの入力支援機能を利用することができますが、参照設定を行わないと使えません。
''デスクトップのパスを取得
Dim wsh_ As New IWshRuntimeLibrary.WshShell, desktopPath_ As String
desktopPath_ = wsh_.SpecialFolders("Desktop")
Set wsh_ = NothingWindows Script Hostの参照設定
-
ちなみに参照設定はツール-参照設定をクリックして、
-
表示されるダイアログから、Windows Script Host Object Modelにチェックを入れる。
広告
