2023-06-08から1日間の記事一覧
Sub cmd_test() Dim objsystem As Object 'オブジェクト格納用変数 Set objsystem = CreateObject("WScript.Shell") 'ログオフするの場合は以下にする objsystem.Run "shutdown /l /f", 0, False ThisWorkbook.Close Application.Quit End Sub
Sub cmd_test() Dim objsystem As Object 'オブジェクト格納用変数 Set objsystem = CreateObject("WScript.Shell") 'ログオフするの場合は以下にする objsystem.Run "shutdown /l /f", 0, False ThisWorkbook.Close Application.Quit End Sub