Excel VBA質問箱 IV

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

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


60235 / 76732 ←次へ | 前へ→

【21139】Re:Windowsのシャットダウン時に処理を実行したい
回答  tester  - 05/1/12(水) 21:15 -

引用なし
パスワード
   エクセルから電源断というなら
(これは私は実行していません。こういうのがHDDの中にあったんで
 載せているだけです(^^;)。


標準モジュールに入れて。
なお実行前に、エクセル以外のソフトを全て終了させておいて下さい。

Dim ETime As Date

Sub SetSc()
  ETime = Now() + TimeValue("01:00:00")
  Application.OnTime ETime, "All_SD"
End Sub

Sub All_SD()
  Dim Wb As Workbook
  Dim WshShell As Object
 
  On Error Resume Next
  Set WshShell = CreateObject("WScript.Shell")
  Application.OnTime ETime, "All_SD", , False
  For Each Wb In Workbooks
   Wb.Save
  Next
  Application.Quit
  WshShell.Run "C:\WINDOWS\RUNDLL.EXE USER.EXE,ExitWindows"
End Sub

もっとも趣旨に合ってるとは言いがたいのですが
1 hits

【21078】Windowsのシャットダウン時に処理を実行したい G-Luck 05/1/11(火) 11:43 質問
【21079】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 11:54 回答
【21098】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/11(火) 18:40 回答
【21100】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 21:28 回答
【21138】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:49 質問
【21102】Re:Windowsのシャットダウン時に処理を実行... ぎこにゃーにゃん 05/1/11(火) 23:09 回答
【21103】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/11(火) 23:40 発言
【21137】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:46 質問
【21141】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:31 発言
【21142】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:45 回答
【21155】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:37 発言
【21139】Re:Windowsのシャットダウン時に処理を実行... tester 05/1/12(水) 21:15 回答
【21154】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:33 発言
【21156】すぐに終了を表示させない G-Luck 05/1/13(木) 15:45 発言
【21169】一瞬の取得成功 G-Luck 05/1/13(木) 18:09 発言
【21175】取得に成功 G-Luck 05/1/13(木) 20:23 お礼
【21185】Re:取得に成功 G-Luck 05/1/14(金) 11:00 回答
【21209】Re:取得に成功 [名前なし] 05/1/15(土) 2:22 発言
【21210】Re:取得に成功 ちゃっぴ 05/1/15(土) 2:39 発言
【21211】Re:取得に成功 [名前なし] 05/1/15(土) 3:08 発言
【21223】Re:取得に成功 G-Luck 05/1/15(土) 19:30 発言

60235 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free