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, "確認")

Ｙｅｓなら処理続行　Ｎｏなら処理中止

If Msg = vbYes Then
End If

If Msg = vbNo Then
Exit　sub
End If

End If

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

0 hits

▼

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

≪