vba - Excel 2010 VBA の作成日

Question

Excel 2010でVBAを使用して現在のブックファイルの作成日を取得するには? ThisWorkBook のすべてのプロパティを参照しましたが、そこに何かが見つからないようです。

Answer 1

MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
'Output: 25.07.2011 14:51:11 

これはExcel2003で機能し、テストする2010はありません。Office2010のMSDNDocへのリンクには、他の使用可能なプロパティのリストもあります。

Answer 2

Scripting.FileSystemObjectを使用する

Dim oFS As Object
Dim creationDate As String

Set oFS = CreateObject("Scripting.FileSystemObject")
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated

Answer 3

使用する

ActiveWorkbook.BuiltinDocumentProperties.Item("Creation date").Value

すべてのプロパティを一覧表示するには、このマクロを実行します

Public Sub listProperties()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    On Error Resume Next
    Cells(rw, 2).Value = p.Value
    rw = rw + 1
Next
End Sub