|
在Excel 2003中单击菜单“文件→属性”可以查看Excel文档属性，其中有“修改时间”一项，它指的的是文件的上次保存时间。如果我们要在打印时自动将这个时间放到页眉中，可以用下面的VBA代码来实现：
按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkBook”，然后在右侧的代码窗口中输入下列代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sLMD As String
On Error Resume Next
sLMD = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
ActiveSheet.PageSetup.LeftHeader = "上次保存时间： " & sLMD
End Sub
这里用到了Workbook.BuiltinDocumentProperties 属性，它可以返回内置的文档属性的整个集合。可以通过指定属性的英文名称，或用集合索引号（数字），即Item(数字) 方法返回集合中的单个成员。例如
Workbook.BuiltinDocumentProperties.Item(3) 为“作者”
Workbook.BuiltinDocumentProperties("Last Save Time") 为“上次保存时间”
索引号与内置文档属性的名称对应表如下：
| |
1 |
标题 |
11 |
创建日期 |
21 |
单位 |
| |
2 |
主题 |
12 |
上次保存时间 |
22 |
字节数 |
| |
3 |
作者 |
13 |
编辑时间总计 |
23 |
行数 |
| |
4 |
关键字 |
14 |
页数 |
24 |
段落数 |
| |
5 |
批注 |
15 |
字数 |
25 |
幻灯片数 |
| |
6 |
模板 |
16 |
字符数 |
26 |
备注数 |
| |
7 |
上一个作者 |
17 |
安全性 |
27 |
隐藏幻灯片数 |
| |
8 |
修订次数 |
18 |
类别 |
28 |
多媒体剪辑数 |
| |
9 |
应用程序名 |
19 |
格式 |
29 |
超链接基础 |
| |
10 |
上次打印日期 |
20 |
经理 |
30 |
字符数（包含空格） |
英文名称与内置文档属性的中文名称对应表：
| |
Title |
标题 |
| |
Subject |
主题 |
| |
Author |
作者 |
| |
Keywords |
关键字 |
| |
Comments |
批注 |
| |
Template |
模板 |
| |
Last author |
上一个作者 |
| |
Revision number |
修订次数 |
| |
Application name |
应用程序名 |
| |
Last print date |
上次打印日期 |
| |
Creation date |
创建日期 |
| |
Last save time |
上次保存时间 |
| |
Total editing time |
编辑时间总计 |
| |
Number of pages |
页数 |
| |
Number of words |
字数 |
| |
Number of characters |
字符数 |
| |
Security |
安全性 |
| |
Category |
类别 |
| |
Format |
格式 |
| |
Manager |
经理 |
| |
Company |
单位 |
| |
Number of bytes |
字节数 |
| |
Number of lines |
行数 |
| |
Number of paragraphs |
段落数 |
| |
Number of slides |
幻灯片数 |
| |
Number of notes |
备注数 |
| |
Number of hidden Slides |
隐藏幻灯片数 |
| |
Number of multimedia clips |
多媒体剪辑数 |
| |
Hyperlink base |
超链接基础 |
| |
Number of characters (with spaces) |
字符数（包含空格） |
如果某个内置的文档属性是存在的，要将该文档属性放入页眉中，将上述代码中的索引号或英文名称作相应的修改即可。
|