Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60220 / 76732

←次へ　｜　前へ→


	【21154】Re:Windowsのシャットダウン時に処理を実行したい

G-Luck - 05/1/13(木) 15:33 -


	引用なし

	パスワード

testerさん　ありがとうございます。

シャットダウンをExcelでキャンセルして、必要な処理を実行後、Excelからシャットダウンというような利用ができるのではないかと思い、調べてみました。

testerさんのコードは、残念ながら私のPCでは　C:\WINDOWS\RUNDLL.EXE が存在せずうまくいきませんでした。
ただ、

http://www1.u-netsurf.ne.jp/~tomo_c/tips/WSH006.html

を参考（というかそのまま）に

Private Sub myShutdown()
　　
　　Dim ws
　　Dim wmi

　　Set ws = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")

　　For Each wmi In ws
　　　　wmi.Shutdown
　　Next

End Sub

というようにしたら、Excelからのシャットダウンはできました。
貴重なアイディアありがとうございました。

0 hits

▼

【21078】Windowsのシャットダウン時に処理を実行したい G-Luck 05/1/11(火) 11:43