Returning last saved by
 

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.

Returning last saved by
 

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

look toward the bottom of the page.

--
Regards,
Tom Ogilvy


"Steven" wrote:

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.

Returning last saved by
 

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)

"Steven" wrote in message
...
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.