|
ブックのプロパティ(文書情報)を書き換えたり確認したりすることで、
後はIfやSelect Caseで処理をする・しないを決めるのはどうでしょうか
例えば、
1日1回の自動実行の際に、プロパティの[コメント]に実行日時を書き込んでおく。
(この場合、上記処理の前に日時を確認する条件を確認する。)
あるいは、[更新日時]を確認することで、処理を続行するかどうか決める。
下記は参考になりそうなマクロ:
Sub MyListProperties()
Rem ブックのプロパティ(文書情報)の表示
Dim proDoc As DocumentProperty
Dim myString As String
'
myString = ""
'
For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties
myString = myString & proDoc.Name & "= " & proDoc.Value & vbCr
On Error Resume Next
Next
'
MsgBox myString
End Sub ' MyListProperties *----*----* *----*----*
Sub hhhhhhh()
' [更新日時]・[コメント]の書き換え
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
ActiveWorkbook.BuiltinDocumentProperties("Last save time") = Now()
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
ActiveWorkbook.BuiltinDocumentProperties("Comments") = CStr(Now())
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Comments").Value
End Sub
|
|