EXCEL的宏运行完后,如何用内部VBA关闭电脑?

cqy

WIN2000 EXCEL的宏运行完后,如何用内部VBA关闭电脑?

mccad

2. ' 其中vFlags参数决定用户需要做的关机操作，
3. ' dwReserved参数是作为保留而没有使用。
4. 　　Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,ByVal dwReserved As Long) As Long
5. 　　Const ShutDown = 1
6. 　　Const ReBoot　　= 2
7. 　　Const LogOff　　= 0
8.        Dim Sh As Long
9. ' 关闭计算机选项
10.        Sh = ExitWindowsEx(ShutDown, dwReserved)
11. ' 重新启动计算机选项
12. 　　Sh = ExitWindowsEx(ReBoot, dwReserved)
13. ' 关闭所有程序并以其他用户身份登录选项
14. 　　Sh = ExitWindowsEx(LogOff, dwReserved)

' 其中vFlags参数决定用户需要做的关机操作， ' dwReserved参数是作为保留而没有使用。 　　Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,ByVal dwReserved As Long) As Long 　　Const ShutDown = 1 　　Const ReBoot　　= 2 　　Const LogOff　　= 0        Dim Sh As Long ' 关闭计算机选项        Sh = ExitWindowsEx(ShutDown, dwReserved) ' 重新启动计算机选项 　　Sh = ExitWindowsEx(ReBoot, dwReserved) ' 关闭所有程序并以其他用户身份登录选项 　　Sh = ExitWindowsEx(LogOff, dwReserved)

cqy

在EXCEL中 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const ShutDown = 1
Const ReBoot = 2
Const LogOff = 0
Dim Sh As Long
Sub Macro1()
Sh = ExitWindowsEx(ShutDown, dwReserved)
End Sub 没响应。