作者：绿色风
分类：
时间：2022-08-17
浏览：108
楼主
biaotiger1 |
Q：如何利用VBA获取工作簿所有内置文档属性列表？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下- Sub 返回所有内置文档属性1()
- On Error Resume Next
- I = 1
- For Each P In ActiveWorkbook.BuiltinDocumentProperties
- Cells(I, 4).Value = P.Name
- Cells(I, 5).Value = P.Value
- Cells(I, 6).Value = P.Type
- I = I + 1
- Next
- End Sub
- Sub 返回所有内置文档属性2()
- On Error Resume Next
- Set P = ActiveWorkbook.BuiltinDocumentProperties
- For I = 1 To 34
- Cells(I, 1).Value = P.Item(I).Name
- Cells(I, 2).Value = P.Item(I).Value
- Cells(I, 3).Value = P.Item(I).Type
- Debug.Print I
- Next
- End Sub
运行以上任一代码，则可在活动工作表中返回工作簿内置属性列表。
其中Type一列中
1表示数字型（msoPropertyTypeNumber）
2表示布林型（msoPropertyTypeBoolean）
3表示日期型（msoPropertyTypeDate）
4表示字符型（msoPropertyTypeString）
具体应用见下贴
如何获取工作簿建立时间和最后一次保存时间？ http://www.exceltip.net/thread-5663-1-1.html
|
2楼
wnianzhong |
好好学习VBA |
3楼
kangguowei |
内置属性. |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一