如何用vba关闭电脑?

当vba代码需要长时间运行时,我们一般会选择在深夜运行代码。

这时候就会遇到运行代码完成以后,希望自动关闭电脑。

这时候可以使用如下的代码来实现:

Sub 强制关闭计算机()
‘QQ:1722187970,微信:xycgenius,公众号:水星excel
Dim sCmd As String
sCmd = “cmd /c shutdown -s”
Shell sCmd
End Sub

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

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

       

发表评论