Come elencare tutte le proprietà di un file Excel in un foglio?

In questo articolo presento un codice VBA per elencare in un foglio tutte le proprietà della cartella di lavoro corrente.

1. Premere Alt + F11 per aprire la finestra Microsoft Visual Basic, Applications.

2. Fare clic su Inserisci > Modulo e incollare il codice seguente nel modulo vuoto.

VBA: Elenco di tutte le proprietà

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. Premere F5per eseguire il codice: verrà creato un nuovo foglio, denominato «Proprietà cartella di lavoro», davanti al foglio corrente, contenente l’elenco di tutte le proprietà della cartella di lavoro attuale.

---

---