[ VBA ] ウィンドウズをシャットダウン、再起動する ( Shell.Application.ShutdownWindows )

Tweet

Pocket

エクセルの VBA から Windows をシャットダウンしたり、再起動するサンプルスクリプトを掲載しています。

ウィンドウズをシャットダウンする

Private Sub CmdShutdownWindows_Click()

    ' Windowsをシャットダウンする
    CreateObject("Shell.Application").ShutdownWindows
    
    ' 自身(Excelなど)を終了する
    Application.Quit
    
End Sub

実行結果

上記のスクリプトを実行するとシャットダウンや再起動などの選択ダイアログが出力されます。操作の選択自体は手動で行う必要があります。

ウィンドウズの再起動

自分自身を終了する理由

スクリプト中では、Application.Quit によって自身を終了させています。この終了処理を行わないときには、以下のようなダイアログが出力されます。ただし、通常のシャットダウン手続きと同様に強制的に終了させることはできます。

参考

• Shell.ShutdownWindows method

Tweet

Pocket