Wie listet man alle Eigenschaften einer Excel-Datei in einem Arbeitsblatt auf?

In diesem Artikel stelle ich einen VBA-Code vor, mit dem alle Eigenschaften der aktuellen Arbeitsmappe in einem Arbeitsblatt aufgelistet werden.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das leere Modul ein.

VBA: Alle Eigenschaften auflisten

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. Drücken Sie F5, um den Code auszuführen. Danach wird vor dem aktuellen Arbeitsblatt ein neues Arbeitsblatt mit dem Namen „Workbook Properties“ erstellt, das alle Eigenschaften der aktuellen Arbeitsmappe auflistet.

---

---