В MS Excel 97 появилось два новых семейства, которые включают в себя все свойства книги : BuiltinDocumentProperties и CustomDocumentProperties. В данном случае - нам нужно обратить свой взор в сторону первого :
Код:
ThisWorkbook.BuiltinDocumentProperties("Title") 'Название
ThisWorkbook.BuiltinDocumentProperties("Subject") 'Тема
ThisWorkbook.BuiltinDocumentProperties("Author") 'Автор
ThisWorkbook.BuiltinDocumentProperties("Manager") 'Руководитель
ThisWorkbook.BuiltinDocumentProperties("Company") 'Учреждение
ThisWorkbook.BuiltinDocumentProperties("Category") 'Группа
ThisWorkbook.BuiltinDocumentProperties("Comments") 'Заметки
Кстати, кроме двух вышеупомянутых свойств (Title, Aut
hor) у об'екта Workbook есть ещё несколько свойств (Subject, Comments)
Пример :Код:
iAuthor = ThisWorkbook.Author
iAuthor = ThisWorkbook.BuiltinDocumentProperties("Author").Value