Дата создания Excel 2010 VBA

Question

Как узнать текущую дату создания файла книги с помощью VBA в Excel 2010?Я просмотрел все свойства ThisWorkBook, но, похоже, что-то там не нашел.

Answer 1

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

Это работает для Excel 2003, у него нет 2010, чтобы проверить это.Ссылка на MSDN Doc для Office 2010, там также есть список с другими доступными свойствами.

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

Answer 4

Я обнаружил, что FileDateTime работает лучше всего.

FileDateTime (application.activeworkbook.path)

Технология в сети говорит, что это относится к Excel 2016, 2013, 2011 для Mac, 2010, 2007, 2003, XP и 2000

MSDN VBA 2010 - FileDateTime