|
成功しました。
本当にWindowsが閉じたときは少し感動しました。
ponpn様、blue様、Kein様早速ご回答いただきましてありがとうございました。
Kein様、もう一つ教えてください。以下の部分ですが、これがあるとないのとではどのように違ってくるのでしょうか?また、エクセルを終了させるという点においては
application.quit
を教えていただいたコードの前に記述することではだめでしょうか?
宜しくお願いいたします。
--------------------------------------------------------------
メモ帖に
Dim objSystemSet, objSystem
Set objSystemSet = _
GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}") _
.InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
objSystem.Win32Shutdown 8
Next
とタイプして、拡張子を vbs としたファイルを、デスクトップにでも
保存しておいたら便利でしょう。これは元々、そういう使い方を想定
したコードだからです。
|
|