VBA Workbook Attributes/Properties

[bkjohn2016]

Hello all,

So, I'm trying to gather several properties for a number of workbooks in a folder:

• Original Author
• Creation Date
• File Size
• File Type

i have been using the .BuiltinDocumentProperties property to gather the author and creation date but I'm having difficulty getting the last two attributes. File Size is pretty self-explanatory and with file type I'd like to demonstrate if the file is an old 97-2003 file type vs a newer version of excel. Any ideas?

Sub PrintDocumentProperties()

    For Each p In ActiveWorkbook.BuiltinDocumentProperties
     Debug.Print p
    Next
     
End Sub

Right now I'm still testing but I will want to this print to another worksheet. But all I need are those two last attributes.

 

[Yongle]

try

MsgBox CreateObject("scripting.filesystemobject").getfile(ActiveWorkbook.FullName).Type
MsgBox Round(CreateObject("scripting.filesystemobject").getfile(ActiveWorkbook.FullName).Size / 1024, 0) & "KB"
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Author")
MsgBox Format(ActiveWorkbook.BuiltinDocumentProperties("creation date"), "dd mm yyyy")

 

[Fennek]

Hi,

it might be better to use the "Namespace" for closed files. Check this page for the details:

http://snb-vba.eu/inhoud_en.html

regards