VBA案例精选 获取工作簿的所有信息

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim wb As Workbook

Dim myProperties As DocumentProperty

Columns("A:B").Clear

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

Range("A1:B1").Value = Array("信息名称", "信息数据")

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列非空单元格最后一格的向下一格。