作者：绿色风
分类：
时间：2022-08-17
浏览：165
楼主
wise |
Q:如何获取工作簿建立时间和最后一次保存时间？
A:主要使用BuiltinDocumentProperties来实现，具体代码请看：
- Sub a()
- On Error Resume Next
- '提示创建时间与修改时间
- MsgBox "创建时间:" & ActiveWorkbook.BuiltinDocumentProperties(11) & Chr(10) _
- & "最后修改时间:" & ActiveWorkbook.BuiltinDocumentProperties(12), vbOKOnly, "提示"
- '如果有错误提示表示工作簿没有保存
- If Err <> 0 Then MsgBox "本工作簿没有保存!"
- End Sub
 获取工作簿建立时间和最后一次保存时间.rar
|
2楼
biaotiger1 |
EXCEL中.BuiltinDocumentProperties属性竟然有30种内置文档属性的名称 |
3楼
laoyebin |
会用到的也就两三个，呵呵 |
4楼
wise |
Q:如何用VBA自定义提取工作簿的作者及工作簿创建时间函数?
A:ALT+F11→插入模块→在模块中输入以下代码:
- Function WHO()
- temp = "工作簿的作者: "
- Dim Workbook As Workbook
- Set Workbook = Application.ActiveWorkbook
- For Each property In Workbook.BuiltinDocumentProperties
- On Error Resume Next
- If property.Name = "Author" Then temp = temp & property.Value
- If property.Name = "Creation date" Then temp = temp & " 创建时间: " & property.Value
- Next property
- WHO = temp
- End Function
|
5楼
1ns0 |
请问如何获得最后修改的用户名呢？ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一