excelの機能でファイルの更新日を自動表示させることは可能でしょうか。

質問

excelの機能でファイルの更新日を自動表示させることは可能でしょうか。
（HTMLで言うところのSSIで更新日を自動入力させるようなものです。）

回答No.5

Wendy02 · ベストアンサー

こんばんは。大変すみません。

つづりが間違っていました。

× Application.Volitile
　　　↓
Application.Volatile

ヴォラタイル の la です。
意味は、揮発するということです。

お礼

できた！ さいごまでありがとうございました！！

回答No.4

Wendy02

こんばんは。

＞おっしゃるとおりにコピペしてやってみたのですが、
＞#NAME?
＞という表示が出ます。

標準モジュールはお分かりになりましたか？

標準モジュール　Visual Basic Editor 画面(Alt + F 11で出ます）に、

　Module1

とありますね。ここをダブルクリックして開けて、なければ、挿入－標準モジュールにして登録します。どこか別の場所に登録すると、関数としては使えません。別の場所に登録したものは、削除してください。

Alt + Q(または、ファイル－終了してMicrosoft Excelに戻る） で、画面を閉じたら、

メニューのツール－マクロ
セキュリティ－「中」以下になっているか確認してください。

もし、「高」から「中」に戻したという場合は、一旦、Excelを閉じて、再度、立ち上げます。

そうしたら、セルの適当な場所に、

　=Koshinbi()

と入れると出てくるかと思います。

お礼

ありがとうございます。

試してみました。。。ですが
今度は#VALUE?
となってしまいます。

ファイルを替えたり、エクセルの再起動、
セキュリティ、標準モジュールの件など。。
何度か試してはみたんですがダメです。。

なにかが間違ってるんでしょうかね。

回答No.3

BLUEPIXY

＃１の方法だと、ファイルを開いた時に、最終更新日付が変更されてしまうようで、うまくないです。
＃２さんの方法がいいと思います。

蛇足としては、
ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
の方がわかりがいいかもしれません

回答No.2

Wendy02

こんにちは。

Visual Basic Editor画面モードにしたら、挿入－標準モジュールで以下のコードを貼り付けて

Function Koshinbi() As String
Dim myDate As Date
　Application.Volitile
　myDate = _
　ThisWorkbook.BuiltinDocumentProperties(12)　'Last SaveDate
　Koshinbi = Format$(myDate, "yy/mm/dd")
End Function

ワークシートに、

=Koshinbi()

と入れてくだされば、更新日（最後に保存した日）が出てきます。ファイルを開くたびに、プロパティから、保存日を呼び出して表示します。ただし、ファイルを開いている最中に保存した場合は、F9 を押さないと、更新されません。

お礼

ありがとうございます。

おっしゃるとおりにコピペしてやってみたのですが、
#NAME?
という表示が出ます。

ワークシートというのは
通常のエクセルのセルのことですよね？

当方、そこまでEXCELに詳しくありませんが
よろしくお願いします。

回答No.1

BLUEPIXY

Private Sub Workbook_Open()
Dim fso, thisFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set thisFile = fso.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
Sheets("Sheet1").Range("A1").Value = thisFile.DateLastModified
Set thisFile = Nothing
Set fso = Nothing
End Sub
'とかしてみる