시트에 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키를 눌러 코드를 실행하면， 현재 워크시트 앞부분에 『워크북 속성』이라는 새 시트가 생성되며， 해당 시트에는 현재 워크북의 모든 속성이 나열됩니다。

---

---