读取系统文档属性
Sub read()
On Error Resume Next
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2) = p.Value
rw = rw + 1
Next
End Sub
读取自定义文档属性
Sub Macro1()
Cells(1, 2) = ActiveWorkbook.CustomDocumentProperties("完成日期").Value
End Sub
增加自定义属性
Sub add()
ActiveWorkbook.CustomDocumentProperties.add Name:="完成日期", Type:=msoPropertyTypeDate, LinkToContent:=False, Value:="31/12/2009"
End Sub
修改
Sub modf()
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value = "31/12/2009"
End Sub
删除
Sub del()
ActiveWorkbook.CustomDocumentProperties("完成日期").delete
End Sub
收藏
一键三连