Author of a Closed Workbook

Sub wbproperties_()

Dim mywb As Workbook

Set mywb = ActiveWorkbook

myauthor = mywb.BuiltinDocumentProperties("Author")

MsgBox myauthor

Set mywb = Nothing
End Sub

'ZVI:2010-06-24 http://www.mrexcel.com/forum/showthread.php?t=476634
Function GetExtFileAuthor(PathName As String, FileName As String) As String
  If Dir(PathName & IIf(Right(PathName, 1) <> "\", "\", "") & FileName) = "" Then Exit Function
  With CreateObject("Shell.Application").Namespace((PathName))
    GetExtFileAuthor = .GetDetailsOf(.ParseName((FileName)), 9)
  End With
End Function

Sub Test()
  Debug.Print GetExtFileAuthor("C:\Tmp", "Test.xls")
End Sub

Sub wbproperties_()

Dim mywb As Excel.Workbook
Dim myauthor As String, sFullName, sPath, sFile
Dim iSlash As Integer
Dim mybook As Object

On Error Resume Next
sFullName = Application.GetOpenFilename("Excel files (*.xlsm), *.xlsm")
Set mybook = GetObject(sFullName)

iSlash = InStrRev(sFullName, "\")
sPath = Left$(sFullName, iSlash - 1)
sFile = Mid$(sFullName, iSlash + 1)

Set mywb = Workbooks(sFile)

myauthor = mywb.BuiltinDocumentProperties("Author")

MsgBox myauthor

Set mybook = Nothing
Set mywb = Nothing

End Sub