Hoe toont u alle eigenschappen van een Excel-bestand in een werkblad?

In dit artikel introduceer ik een VBA-code waarmee u alle eigenschappen van het huidige werkboek in een werkblad kunt weergeven.

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in de lege module.

VBA: Alle eigenschappen weergeven

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. Druk op F5 om de code uit te voeren. Er wordt een nieuw werkblad met de naam Werkbookeigenschappen aangemaakt aan het begin van het huidige werkblad, waarin alle eigenschappen van het huidige werkboek worden weergegeven.

---

---