VBA代码大全017:如何用vba关闭电脑？

我们在电脑上安装软件的时候经常会遇到一个选项就是安装完成后重启电脑。

只要我们勾选了这个选项，等到软件安装完成后电脑就会关闭然后重新启动。

这里面实际上是调用了API函数来实现电脑的关机和重启。

一般我们写vba代码都是用来解决日常工作上的繁琐的数据处理问题，很少有需要系统操作的。

但是当vba代码需要长时间运行时，比如需要长时间爬取网上的数据，我们一般会选择在深夜运行代码。这时候就会遇到运行代码完成以后，希望自动关闭电脑。

这里介绍一种比较简单的实现方法，直接调用dos的关机命令来实现关闭电脑。

代码如下：

Sub 强制关闭计算机()
    Dim sCmd As String
    sCmd = "cmd /c shutdown -s"
    Shell sCmd
End Sub

其中shutdown是dos命令,shutdown -s 表示关闭计算机。

如果要关闭后重启电脑，则命令改成shutdown -r。

-s，-r都是shutdown的参数，实际上这个命令还有很多其他参数，如果想要获取到这些命令的所有参数解释，可以直接打开运行对话框，输入cmd，然后在dos命令提示符中输入shutdown /? 即可获取对应的dos命令说明，如下图所示: