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