2011-07-28 283 views
4

如何在Excel 2010中使用VBA獲取當前工作簿文件的創建日期?我瀏覽了ThisWorkBook的所有屬性,我似乎沒有找到那裏的東西。Excel 2010 VBA創建日期

回答

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

這適用於Excel 2003,沒有2010測試它。 對於Office 2010,鏈接到MSDN Doc,那裏也有一個包含其他可用屬性的列表。

+1

恰到好處。謝謝你(我會在9分鐘內接受你的答案......所以說:)) – CoolStraw

1

使用Scripting.FileSystemObject

Dim oFS As Object 
Dim creationDate As String 

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

我找到了這個解決方案,但我正在尋找一種更順暢的方式來做到這一點,就像cularis提議的那樣。謝謝:) – CoolStraw

+1

你也可以''filedatetime(ThisWorkbook.fullname)'爲創建|最後修改 –

+0

亞歷克斯你的功能給當前時間。它不給出創建日期。 Thx,親切的問候 – CoolStraw

1

使用

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