Заполнение программно вкладку "Сводка"

[Shlyapnik]

Подскажите пожалуйста, как программно на VBA можно задавать теги вкладки "сводка" xlsx файла? А именно очень интересует "Комментрарий" и "Название"

[EducatedFool]

Sub ПримерИспользования_FillWorkbookPropertiesForForums()
    FillWorkbookProperties ActiveWorkbook, "Название", "Тема", "Автор", "Ключевые Слова", , "EducatedFool", , "Компания"
End Sub


Sub FillWorkbookProperties(ByRef wb As Workbook, _
                           Optional ByVal Title As String = vbNullString, Optional ByVal Subject As String = vbNullString, _
                           Optional ByVal Author As String = vbNullString, Optional ByVal Keywords As String = vbNullString, _
                           Optional ByVal Template As String = vbNullString, Optional ByVal LastAuthor As String = vbNullString, _
                           Optional ByVal Manager As String = vbNullString, Optional ByVal Company As String = vbNullString)
    On Error Resume Next
    MyComment = "http://excelvba.ru/" & vbNewLine & _
                "Разработка макросов любой сложности " & "для Excel, Word, CorelDRAW" & vbNewLine

    With wb.BuiltinDocumentProperties
        If Len(Title) Then .Item(1) = Title
        If Len(Subject) Then .Item(2) = Subject
        If Len(Author) Then .Item(3) = Author
        If Len(Template) Then .Item(4) = Template
        .Item(5) = MyComment
        If Len(LastAuthor) Then .Item(7) = LastAuthor
        If Len(Manager) Then .Item(20) = Manager
        If Len(Company) Then .Item(21) = Company
    End With
End Sub

[viter.alex]

А если нужно сделать то же самое, но без открытия файла, нужно воспользоваться библиотекой dsofile.dll. Пример приведён здесь. Это очень полезно, если нужно менять свойства многих файлов сразу.

[Shlyapnik]

Спасибо всем, то что нужно.