Excel VBA質問箱 IV

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

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


76590 / 76732 ←次へ | 前へ→

【4562】Re:Personal.xlsについて教えてください。
質問  Kein  - 03/3/26(水) 23:34 -

引用なし
パスワード
   ▼motomo さん:
>常時立ち上げている、"常時.xls"が存在
ということでしたら、それに Auto_Open マクロで、OnTimeメソッドを使った
コードを起動させれば良いと思います。例えば

Sub Auto_Open()
 Application.OnTime TimeValue("9:00:00"), "定時印刷", TimeValue("00:30:00")
End Sub
'↑9時になったら"定時印刷"を起動。猶予時間は30分

Sub 定時印刷()
  On Error GoTo ErLine
  Workbooks.Open "帳票.xls"
  Worksheets(1).Activate
  'ここにデータ採集・表作成のコードを書く
  Worksheets(1).PrintOut Copies:=3
ErLine:
  If Workbooks.Count = 2 Then
   Workbooks(2).Close True
  End If
  If Err > 0 Then
   Debug.Print "エラーが発生! 異常終了しました : " & Time
  End If
  Application.OnTime TimeValue("9:00:00"), "定時印刷", , False
  ThisWorkbook.Save
  Application.Quit
End Sub

てな感じでしょーか。
>"Personal.xls"の使い方や、保存場所等
と言っても、それほど特殊なものではありません。保存するところは
>Startupフォルダー
で良いわけです。通常のブックとの違いと言えば、非表示で最初に自動的に立ちあがる
ということぐらいです。もちろん必要なら、ワークシートなどを追加挿入することも
出来ます。「ウィンドウ」「再表示」で見ることができます。それぐらいかな・・。
>タスクのスケジュールで"Personal.xls"を起動
当初のやり方なら、そういうことになりますね。 

1 hits

【4527】タスクのスケジュールで開いたブックを終... motomo 03/3/25(火) 17:13 質問
【4532】とりあえず解決も・・・ motomo 03/3/25(火) 19:46 質問
【4558】Re:タスクのスケジュールで開いたブックを終... Kein 03/3/26(水) 21:02 回答
【4560】Re:Personal.xlsについて教えてください。 motomo 03/3/26(水) 22:26 質問
【4562】Re:Personal.xlsについて教えてください。 Kein 03/3/26(水) 23:34 質問
【4563】Re:Personal.xlsについて教えてください。 Kein 03/3/26(水) 23:36 回答
【4575】Re:Personal.xlsについて教えてください。 motomo 03/3/27(木) 12:46 お礼

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