代碼運行結(jié)果：

代碼截圖：

代碼文本：

Public Sub 技巧()

    Dim wb As Workbook

    Dim myProperties As DocumentProperty

    Columns("A:B").Clear

    Set wb = ThisWorkbook      '可以指定任意的工作簿

    Range("A1:B1").Value = Array("信息名稱", "信息數(shù)據(jù)")

    For Each myProperties In wb.BuiltinDocumentProperties

        With Range("A65536").End(xlUp).Offset(1)

            .Value = myProperties.Name

            On Error Resume Next

            .Offset(, 1).Value = myProperties.Value

            On Error GoTo 0

        End With

    Next

    Columns.AutoFit

    Set wb = Nothing

End Sub

注釋：

For each 和 next是首位相接， Range("A65536").End(xlUp).Offset(1)意譯為：A列非空單元格最后一格的向下一格。