作成時刻と最終更新時刻を取得し、セルに挿入する

この記事では、現在のブック情報の作成時刻と最終更新時刻を取得し、Excelでその情報をセルに挿入する方法について説明します。

Infoコマンドを使用してExcelで作成時刻と最終更新時刻を取得する

Kutools for Excelを使用して、セルやヘッダー/フッターに作成時刻と最終更新時刻を挿入する

高度なプロパティ機能を使用してExcelで作成時刻と最終更新時刻を取得する

VBAコードを使用してExcelのセルに作成時刻と最終更新時刻を挿入する

Infoコマンドを使用してExcelで作成時刻と最終更新時刻を取得する

Microsoft Excel 2010 / 2013のバックステージビューで、現在のワークブックの正確な作成時刻と最終更新時刻を見つけることができます。

ファイル > 情報 をクリックすると、バックステージビューの右側に 関連日付情報が表示されます。関連日付の下には、最終更新時刻、作成時刻、および最後に印刷された時刻がリストされています。次のスクリーンショットをご覧ください：

注: この方法はMicrosoft Excel 2010/2013でのみ利用可能です。Excel 2007では無効です。

Kutools for Excelを使用して、セルやヘッダー/フッターに作成時刻と最終更新時刻を挿入する

便利なツールであるKutools for Excel をご紹介させていただきます。このツールには300以上の便利な機能があり、作業効率を向上させることができます。Insert Workbook Information機能を使用すると、ワークブックパス、ワークブック/ワークシート名、ユーザー名、または作成時刻と最終更新時刻をセルやヘッダーやフッターに迅速に挿入できます。

無料でインストール した後、以下の手順を実行してください：

1. クリックしてください Kutools Plus > Workbook > Insert Workbook Information. スクリーンショットをご覧ください：

2. 次に Insert Workbook Information ダイアログで、挿入したい情報を「情報」セクションからチェックし、挿入先の場所を指定します。セル、フッター（左フッター、中央フッター、右フッター）、またはヘッダー（左ヘッダー、中央ヘッダー、右ヘッダー）を選択できます。スクリーンショットをご覧ください：

3. 「OK」をクリックすると、選択した情報が指定した場所に挿入されます。

ヒント. Insert Workbook Information機能を無料で試してみたい場合は、まずKutools for Excelを無料でダウンロードしてから、上記の手順に従って操作を適用してください。

高度なプロパティ機能を使用してExcelで作成時刻と最終更新時刻を取得する

実際に、ドキュメントプロパティダイアログボックスで現在のワークブックの作成時刻と最終更新時刻の両方を取得できます。
ステップ 1: 開く 高度なプロパティ ダイアログボックス：

Excel 2007では、Officeボタン > 準備 > プロパティをクリックすると、ツールバーの下に関連するドキュメントプロパティバーが表示されます。 ドキュメントプロパティ > 高度なプロパティをクリックしてください。スクリーンショットをご覧ください：

Excel 2010/2013では、ファイル > 情報 > プロパティ > 高度なプロパティをクリックします。

ステップ 2: 高度なプロパティダイアログボックスで、統計タブの下に作成時刻と最終更新時刻が表示されます。次のスクリーンショットをご覧ください：

VBAコードを使用してExcelのセルに作成時刻と最終更新時刻を挿入する

次のVBAマクロを使用すると、現在のブック情報の作成時刻と最終更新時刻を直接セルに挿入できます。

Excelに作成時刻と最終更新時刻の両方を挿入する

ステップ 1: ALT + F11 キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

ステップ 2: 挿入 >> モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

VBAコード: Excelに作成時刻と最終更新時刻の両方を挿入する

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

ステップ 3: F5キーを押してこのマクロを実行します。そして、作成日時と最終更新日時はそれぞれセルA1とセルA2に挿入されます。

注: 必要に応じて、VB内の宛先セルを変更できます。

Excelにワークブックの最終更新時刻を挿入する

ステップ 1: ALT + F11 キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

ステップ 2: 挿入 >> モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

ステップ 3: コードを保存して閉じ、ワークシートに戻ります。空白のセルに=ModDate()の数式を入力し、Enterキーを押します。これにより、最終更新時刻がセルに挿入されます。

Excelにワークブックの作成時刻を挿入する

ステップ 1: ALT + F11 キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

ステップ 2: 挿入 >> モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

ステップ 3: コードを保存して閉じ、ワークシートに戻ります。空白のセルに=CreateDate()の数式を入力し、Enterキーを押します。すると、次のスクリーンショットのように作成日がセルに挿入されます：

注: セルが日付形式でない場合、奇妙な数字が表示されることがあります。その場合は、このセルを日付形式に設定すれば通常の日付として表示されます。