excel - 通过 VBA [Excel] 休眠 Win7？

Question

我正在寻找一种通过 VBA [Excel 2010] 让我的笔记本 [Win7] 进入休眠状态的方法。我正在寻找解决方案，但找不到方便的解决方案。我正在使用该SendKeys方法，但没有运气。然后Shell "C:\WINDOWS\System32\rundll32.exe powrprof.dll,SetSuspendState", vbHide给了我Compile error: Invalid outside procedure消息。据Function ExitWindowsEx我所知，仅提供注销，关闭和重新启动的选择，但没有休眠。提前谢谢你的帮助。

Answer 1

我刚刚成功地使我的电脑休眠。这是华丽的代码：

Option Explicit

Declare Function SetSuspendState Lib "powrprof.dll" _
(ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean

Sub Yoo()
    Dim value_hibernate As Integer
    value_hibernate = SetSuspendState(True, False, False)
    If value_hibernate <> 1 Then MsgBox "Hibernation has failed."
End Sub

一些评论说它SetSuspendState比 PowerState 更好。

玩得开心通过 VBA 使您的机器休眠！耶！