Word、Excel等のヘッダ・フッタで更新日を自動表示する方法？

表記の通りですが、Word、Excel等のヘッダ・フッタで、当日の日付を表示することは可能ですが、ファイルの更新日を手入力ではなく、自動的に表示する方法はありますか？

No.2 ベストアンサー 回答者： popesyu 回答日時： 2004/02/27 13:05

エクセルのヘッダーやフッターにはオブジェクトを挿入できないようですので、印刷タイトルを使用するしかないような感じです。

また更新日の取得に関してはそのような関数があるかどうかは知りませんが、まぁ簡単なコードですので自作してもよいかと。
---
Function KousinDate() As Date
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
KousinDate = FSO.GetFile(ActiveWorkbook.FullName).DateLastModified
End Function
---
これをモジュールにでも貼り付けておいて
適当なセルの書式を日付にしておいて
=KousinDate()
印刷タイトル（行見出しなど）でそのセルを指定するという方法でできました。

・・・もっとスマートな方法があるような気もするんですけどねぇ。

No.4 回答者： sakenomo 回答日時： 2004/02/28 13:16

＃３です。

訂正します。

以前に同様な質問があり、それにお答えしていたのを忘れていました。ファイルの更新日時の情報は、けっこうややこしいものがあります。既存のファイルを開いた瞬間にそのファイルの更新日時は変わってしまうので、＃３のマクロではお役に立てないと思います。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=577838

表示したいものが日付だけなら、回答例の７番さんのものがよろしいかと思います。

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=577838

No.3 回答者： sakenomo 回答日時： 2004/02/28 00:14

エクセルのフッターの場合ですが、ＶＢＥを開いて下のマクロをThisWokbookモジュールにコピーすればできると思います。

Private Sub Workbook_Open()
ActiveSheet.PageSetup.RightFooter = "更新日: " & Left(FileDateTime(ThisWorkbook.FullName), 10)
'ActiveSheet.PageSetup.RightFooter = "更新日時: " & FileDateTime(ThisWorkbook.FullName)　'時間も表示させたい場合はこちらをどうぞ
End Sub

No.1 回答者： mythism 回答日時： 2004/02/27 12:35

ヘッダーやフッターにフィールドを出力することで、質問者さんの期待する処理ができます。

メニューの「挿入」から「フィールド」を選択し、「フィールドの名前」からSaveDateを選択肢、その後、出力する書式を決定してください。

ただし、この方法では上書き保存時には更新日時は反映されず、フィールドを選択してF9キーでフィールドを更新するか、ファイルを開いたときにしか更新日は反映されません。

この回答へのお礼

早速の回答有り難うございます。
Wordにおいては確かにご回答いただいたもので充分ですね。
Excelでも同様の処理があるとよいのですが・・・

お礼日時：2004/02/27 12:42