[已解决]Workbook.BuiltinDocumentProperties 属性

爱疯 · 发表于 2010-10-29 17:31

Excel2003	Excel2007
Title	Title
Subject	Subject
Author	Author
Keywords	Keywords
Comments	Comments
Template	Template
Last author	Last author
Revision number	Revision number
Application name	Application name
Last print date	Last print date
Creation date	Creation date
Last save time	Last save time
Total editing time	Total editing time
Number of pages	Number of pages
Number of words	Number of words
Number of characters	Number of characters
Security	Security
Category	Category
Format	Format
Manager	Manager
Company	Company
Number of bytes	Number of bytes
Number of lines	Number of lines
Number of paragraphs	Number of paragraphs
Number of slides	Number of slides
Number of notes	Number of notes
Number of hidden Slides	Number of hidden Slides
Number of multimedia clips	Number of multimedia clips
Hyperlink base	Hyperlink base
Number of characters (with spaces)	Number of characters (with spaces)
	Content type
	Content status
	Language
	Document version

帮助说，返回一个 DocumentProperties 集合，该集合表示指定工作簿的所有内置文档属性。只读。

如果在A列输出（图中的）中文标题，B列输出其他对应值。请问应怎样修改或编写？谢谢！

Sub aa() '这是帮助的示例
    Dim rw As Integer
    Dim p As DocumentProperty

    rw = 1
    Worksheets(1).Activate
    For Each p In ActiveWorkbook.BuiltinDocumentProperties
        Cells(rw, 1).Value = p.Name
        rw = rw + 1
    Next
End Sub