Как вывести список всех свойств файла Excel на лист?

В этой статье я привожу код VBA, который выводит все свойства текущей книги на лист.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Выберите Вставка > Модуль и вставьте приведённый ниже код в пустой модуль.

VBA: Вывод списка всех свойств

Sub WBProperties()
'UpdatebyKutools20191031
    Dim xWB As Workbook
    Dim xF As Long
    Dim xStr As String
    Dim xWSh As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    xStr = "Workbook Properties"
    Set xWB = Application.ActiveWorkbook
    Set xWSh = xWB.Worksheets.Item(xStr)
    If Not xWSh Is Nothing Then
        xWSh.Delete
    End If
    Set xWSh = xWB.Worksheets.Add
    xWSh.Name = xStr
    xWSh.Range("A1").Value = "Property"
    xWSh.Range("B1").Value = "Value"
    With xWB
        For xF = 1 To .BuiltinDocumentProperties.Count
            xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
            .BuiltinDocumentProperties.Item(xF).Name
            xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
            .BuiltinDocumentProperties.Item(xF).Value
        Next xF
    End With
    Application.DisplayAlerts = True
End Sub

3. Нажмите F5, чтобы выполнить код. После этого на текущем листе будет создан новый лист с именем «Свойства книги», содержащий список всех свойств текущей книги.

---

---