VBA讀取、增加自定義和修改文檔屬性

2010-10-23 09:54:05|分類： Excel自動化 |標籤： |字型大小大中小訂閱

讀取系統文檔屬性

Sub read()On Error Resume Nextrw = 1Worksheets(1).ActivateFor Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = p.Name Cells(rw, 2) = p.Value rw = rw + 1NextEnd 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

推薦閱讀：