你可以这样实现定时关机

定时关机

在VBA中可以使用Shell函数执行Shutdown.exe程序实现定时关闭电脑，如下面的代码所示。

Sub Shutdown()

Shell ('at 09:00Shutdown.exe -s')

End Sub

代码解析：

Shutdown过程使用Shell函数在08:31时自动关闭电脑。Shell函数执行一个可执行文件，语法如下：

Shell(pathname[，windowstyle])

参数pathname是必需的，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。在Macintosh中，可以使用MacID函数来指定一个应用程序的署名而不是名称。表格中列出了执行windows中常用程序的代码。

参数windowstyle是可选的，表示在程序运行时窗口的样式。如果省略，则程序是以具有焦点的最小化窗口来执行的。windowstyle参数的值如表格所示。

常量	值	描述
vbHide	0	窗口被隐藏，且焦点会移到隐式窗口。常数vbHide在Macintosh平台不可用。
VbNormalFocus	1	窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus	2	窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus	3	窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus	4	窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus	6	窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。