Como obter a data de criação do arquivo de pasta de trabalho atual usando o VBA no Excel 2010? Eu naveguei todas as propriedades de ThisWorkBook Eu não parecem encontrar algo lá.
Respostas:
9 para resposta № 1MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
"Output: 25.07.2011 14:51:11
Isso funciona para o Excel 2003, não tenha 2010 para testá-lo. Link para Doc MSDN para o Office 2010, também há uma lista com outras propriedades disponíveis.
2 para resposta № 2
Usar
ActiveWorkbook.BuiltinDocumentProperties.Item("Creation date").Value
Para listar todas as propriedades, execute esta macro
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 para resposta № 3
Usar Scripting.FileSystemObject
Dim oFS As Object
Dim creationDate As String
Set oFS = CreateObject("Scripting.FileSystemObject")
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated
0 para a resposta № 4
Eu achei que FileDateTime funciona melhor.
FileDateTime (application.activeworkbook.path)
Tecnologia na net diz que se aplica a Excel 2016, 2013, 2011 para Mac, 2010, 2007, 2003, XP e 2000