VBA读取、增加自定义和修改文档属性

VBA文档属性操作指南

最新推荐文章于 2023-08-18 10:00:00 发布

转载最新推荐文章于 2023-08-18 10:00:00 发布 · 1.7k 阅读

文章标签：

#python

本文介绍使用VBA进行文档属性的操作方法，包括读取系统和自定义文档属性、增加、修改及删除自定义属性等实用技巧。

读取系统文档属性

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