Returning last saved by

[Guest]

I have seen:
BuiltInDocumentProperties("Last Author") but this means the file must be open.

And I have seen:
myFile = "C:\Book1.xls"
FileDateTime(myFile)
...This means the file does not have to be open and I can have a list in
Column A to return the FileDateTime.

Question: Is there a way to get the Last Author somewhat in the same way
that the FileDateTime is returned?

Thank you for your help.

Steven.

 

[Guest]

http://www.cpearson.com/excel/docprop.htm

look toward the bottom of the page.

 

[Bob Phillips]

Yes you can, but you have to install DSO. You can get it at
http://support.microsoft.com/?id=224351.

Dim FileName As String
Dim fOpenReadOnly As Boolean
Dim DSO As DSOFile.OleDocumentProperties

Set DSO = New DSOFile.OleDocumentProperties
FileName = "C:\Documents and Settings\Bob\My Documents\My
Spreadsheets\MyText.xls"
DSO.Open FileName, fOpenReadOnly, dsoOptionOpenReadOnlyIfNoWriteAccess

'Get the SummaryProperties (these are built-in set)...
Set oSummProps = DSO.SummaryProperties
Debug.Print "Author: " & oSummProps.Author


Set DSO = Nothing


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)