ワークシートにExcel ファイルのすべてのプロパティを一覧表示するには、どうすればよいですか？

この記事では、現在のワークブックに含まれるすべてのプロパティをワークシート上に一覧表示する VBA コードをご紹介します。

1。次に、Alt + F11キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

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キーを押してコードを実行すると、「Workbook Properties」という新しいワークシートが現在のワークブックの先頭に作成され、そのワークブックのすべてのプロパティが一覧表示されます。

---

---