エクセルVBA 土休日におけるbookclose

質問

こんにちは。
VBAについては初心者レベルの者です。

さて早速質問ですが、あるエクセルブックを「タスク」によって17：28に自動起動させ、

Application.OnTime TimeValue("17:30:00"), "自動集計"

を仕込んで17：30に自動集計をするようにし、集計後、ある方法で自動で関係者へメール配信を行うようにしております。

ところが諸事情により、常時起動しているPCにこのファイルを保存しているため、土日、祭日まで集計を行ってしまいます。
集計を行うと自動でメール配信をしてしまうため、月曜日出社すると、3通ほど無駄にメールが届くこととなり、できれば、平日のみ集計するようにしたいのです。

そこでお伺いしたいのは、

1.別途エクセルブックを作り、そのA列に、「ウィークデーの祭日、年末年始などの会社休日」を羅列します。
2.タスクによって自動集計のブックが開いた直後（17：29）くらいに、このブックをタスクでオープンさせて「今日が土日か、A列にある日付である場合、現在開いているエクセルブックをすべて閉じる」というマクロを実行させます。

こういった方法で自動集計のエクセルブックを閉じてしまえば良いと考えたのですが、「2」をかなえるマクロの記述はどう書けばよいかお教えいただきたいと思います。
また、別の方法で平日のみ集計する方法があればそれでも結構ですのでお教えください。

以上、よろしくお願い致します。

回答No.3

imogasi

問題にしているブックで
Sub test02()
MsgBox Date
MsgBox Weekday(Date)
End Sub
　で今日の日付けと曜日がわかるから、土日はWeekday(Date)の結果が
１か７かを判定すれば良いのでは。
他ブック云々は意味がわからない。
ーー
問題は祝日と会社休日だが、使わないシートのA列ででもに、それらの年月日（日付シリアル値）を入力しておき（毎年見直しが必要で面倒だか、他に良い方法はないはず）を入力しておいて、これを検索すれば良い。Find検索やVLOOKUP関数（をVBAで使う）でコード例を探すと良い。
自分でGoogleででも照会すればコード例は沢山あるだろう。丸投げしないで、勉強のこと。
初心者がやるには、日付時刻で作業をコントロールなどするのは過ぎた課題だと思う。

お礼

ありがとうございます。

回答No.2

Cor_moriyan

別のブックから閉じさせるのではなく、

　　Application.OnTime TimeValue("17:30:00"), "自動集計"

を実行する前に、休日で有るかどうかを聞いてしまってはダメなのでしょうか？
つまり、タスクから実行されるブックに、祝日と会社休日を列挙するシートを作成し、
Application.OnTime の前にIf文で休日であるかをチェック。
休日なら Application.Quit すれば良いと思います。

平日　を判定させるにはワークシート関数の NetWorkDays を利用するのはどうでしょうか。

1) シートを追加し、シート名を"休日"にする。
2) A列に土日以外の祝日・会社休日を西暦から入力。（以後、毎年更新する必要があります）
3)
　　If WorksheetFunction.NetworkDays(dateTODAY, dateTODAY, ThisWorkbook.Worksheets("休日").Range("A:A")) = 1 Then
　　　　Application.OnTime TimeValue("17:30:00"), "自動集計"
　　Else
　　　　Applicaiton.Quit
　　End If

試してないので(^^; 何とも言えませんが。
休日シートに入力する日付は、西暦から入力する必要があるので。年が変わる毎に入力する必要があります。応用で、休日シートは別のブックにしておく事も可能ですね。

お礼

ご丁寧な回答ありがとうございました。

試してみたのですが、「変数が定義されていない」というようなメッセージが出てNGとなってしまいました・・・。

しかし、社内でも同様の質問を投げかけていたところ、下記の記述例がわかり、こちらでうまくいくこととなりました。

Sub サンプル()
If IsError(Application.Match(CLng(Date), Sheets("祝日").Columns("A"), 0)) Then
If Weekday(Date) <> 1 Or Weekday(Date) <> 7 Then
Application.OnTime TimeValue("17:30:00"), "自動集計"
End If
Else
Application.Quit
End If
End Sub

回答No.1

mu2011

一例です。
ThisWorkBookのイベントプロシージャか、標準モジュールのAuto_Openで組み込んでは如何でしょうか。

Private Sub Workbook_Open()　又は、Sub Auto_Open()
～日付チェック処理～
If 休日　Then
　Application.Quit
EndIf

お礼

ご回答ありがとうございました。