Jak uzyskać bieżącą datę utworzenia pliku skoroszytu za pomocą VBA w programie Excel 2010? Przeglądałem wszystkie właściwości ThisWorkBook, nie znajduję tam czegoś.
Odpowiedzi:
9 dla odpowiedzi № 1MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
"Output: 25.07.2011 14:51:11
To działa w przypadku programu Excel 2003, nie ma 2010, aby go przetestować. Łączyć z MSDN Doc w przypadku pakietu Office 2010 znajduje się tam również lista innych dostępnych właściwości.
2 dla odpowiedzi nr 2
Posługiwać się
ActiveWorkbook.BuiltinDocumentProperties.Item("Creation date").Value
Aby wyświetlić listę wszystkich właściwości, uruchom to makro
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
2 dla odpowiedzi nr 3
Posługiwać się Scripting.FileSystemObject
Dim oFS As Object
Dim creationDate As String
Set oFS = CreateObject("Scripting.FileSystemObject")
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated
0 dla odpowiedzi nr 4
Odkryłem, że FileDateTime działa najlepiej.
FileDateTime (application.activeworkbook.path)
Tech w sieci mówi, że dotyczy to Excel 2016, 2013, 2011 dla komputerów Mac, 2010, 2007, 2003, XP i 2000