Excel VBA質問箱 IV

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

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


23775 / 76732 ←次へ | 前へ→

【58317】ファイルの更新日付を取得して開く
質問  あんどーなつ  - 08/10/18(土) 18:08 -

引用なし
パスワード
   こんなことを考えてます

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

可能でしょうか
可能であればどう修正しどうつなげばうまく動きますか
0 hits

【58317】ファイルの更新日付を取得して開く あんどーなつ 08/10/18(土) 18:08 質問
【58321】Re:ファイルの更新日付を取得して開く りん 08/10/18(土) 19:51 回答
【58328】Re:ファイルの更新日付を取得して開く あんどーなつ 08/10/19(日) 17:35 質問
【58329】Re:ファイルの更新日付を取得して開く neptune 08/10/19(日) 19:23 発言
【58353】Re:ファイルの更新日付を取得して開く あんどーなつ 08/10/20(月) 22:27 お礼

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