Returning last saved by

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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)
 
Back
Top