Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23846 / 76807

←次へ　｜　前へ→


	【58321】Re:ファイルの更新日付を取得して開く

りん

- 08/10/18(土) 19:51 -


	引用なし

	パスワード

あんどーなつさん、こんばんわ。

>ファイルを開くとき（開く前に）ファイルの更新日付を取得。
>ここでの更新日付とはファイルのプロパティに表示される「更新日時：.....」のこと
>Dim koushin As Date
>koushin = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value
>
>
>ここで，更新日付が今日（当日）でない場合は確認メッセージを表示
>当日なら処理続行

取得した更新日時から時刻（小数）を切り捨てたものと、Date関数で取得したものが一致するかどうかを比較し分岐します。

Sub test()
　 Dim koushin As Date
　 Application.Dialogs(xlDialogOpen).Show
　 If ActiveWorkbook.Name <> ThisWorkbook.Name Then
　　　'何かファイルを開いた
　　　koushin = ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value
　　　If Int(koushin) = Date Then
　　　　 MsgBox "今日", vbInformation
　　　Else
　　　　 MsgBox Format(koushin, "ge/m/d作成"), vbExclamation
　　　End If
　 End If
End Sub

こんな感じです。

0 hits

▼

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