如何在excel 2010中使用VBA获得当前工作簿文件创建日期?我浏览了ThisWorkBook的所有属性,但似乎没有找到什么
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
'Output: 25.07.2011 14:51:11
这适用于Excel 2003,没有2010来测试它。链接到Office 2010的MSDN文档,那里也有一个其他可用属性的列表
使用脚本。FileSystemObject
Dim oFS As Object
Dim creationDate As String
Set oFS = CreateObject("Scripting.FileSystemObject")
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated
使用
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
我发现FileDateTime效果最好。
FileDateTime (application.activeworkbook.path)
技术在网上说它适用于Excel 2016, 2013, 2011 for Mac, 2010, 2007, 2003, XP和2000
MSDN VBA 2010 - FileDateTime