|
こんなことを考えてます
Application.Dialogs(xlDialogOpen).Show
でダイアログからファイルを選択
ファイルを開くとき(開く前に)ファイルの更新日付を取得。
ここでの更新日付とはファイルのプロパティに表示される「更新日時:.....」のこと
Dim koushin As Date
koushin = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value
ここで,更新日付が今日(当日)でない場合は確認メッセージを表示
当日なら処理続行
If koushin = TODAY() then ←この構文?
Else
Msg = MsgBox( "更新日付は " & Format(koushin, "YYYY/MM/DD")_
"処理続けるか?",vbYesNo + vbQuestion, "確認")
Yesなら処理続行 Noなら処理中止
If Msg = vbYes Then
End If
If Msg = vbNo Then
Exit sub
End If
End If
可能でしょうか
可能であればどう修正しどうつなげばうまく動きますか
|
|