最近困扰我的页脚和页眉，找到一点资料：页眉和页脚的格式设置和 VBA 代码 | Microsoft Learn
但是没有完全解决VBA代码对已经存在的页眉和页脚改写。就是无法改写，包括微软帮助，网上搜索，都只能是人工选定所有工作表，然后设置为无。
以下特殊格式和 Visual Basic for Applications (VBA) 代码可包含在页眉和页脚属性中 (LeftHeader、CenterHeader、RightHeader、LeftFooter、CenterFooter 和 RightFooter) 。
| 格式代码 | 说明 |
|---|---|
| &L | 后续字符左对齐。 |
| &C | 后续字符居中。 |
| &R | 后续字符右对齐。 |
| &E | 打开或关闭打印双下划线功能。 |
| &X | 打开或关闭打印上标字符功能。 |
| &Y | 打开或关闭打印下标字符功能。 |
| &B | 打开或关闭打印粗体功能。 |
| &I | 打开或关闭打印斜体功能。 |
| &U | 打开或关闭打印下划线功能。 |
| &S | 打开或关闭打印删除线功能。 |
| &"fontname" | 以指定的字体打印后续字符。 确保包含了双引号。 |
| &nn | 以指定的字体大小打印后续字符。 用一个 2 位数字指定以磅为单位的大小。 |
| &颜色 | 以指定颜色打印字符。 用户提供十六进制颜色值。 |
| &"+" | 以当前主题的 “标题” 字体打印后续字符。 确保包含了双引号。 |
| &"-" | 以当前主题的 “正文” 字体打印后续字符。 确保包含了双引号。 |
| &K xx。 S nnn | 以当前主题中的指定颜色打印后续字符。 xx 是一个 1 到 12 之间的两位数数字，用于指定要使用的主题颜色。 S nnn 指定该 (颜色) 淡色的色调。 将 S 指定为 + 可生成较亮的底纹；将 S 指定为 - 可生成较暗的底纹。 yyy 是三位整数，用于指定从 0 到 100 的百分比。 如果指定主题颜色或底纹的值不在所述的限制范围内，则 Excel 将使用最接近的有效值。 |
| VBA 代码 | 说明 |
|---|---|
| &D | 打印当前日期。 |
| &T | 打印当前时间。 |
| &F | 打印文档名称。 |
| &A | 打印工作簿标签名称。 |
| &P | 打印页号。 |
| &P+number | 打印页号加上指定数字。 |
| &P-number | 打印页号减去指定数字。 |
| && | 打印单个和号。 |
| &N | 打印文档的总页数。 |
| &Z | 打印文件路径。 |
| &G | 插入图像。 |
示例
以下代码显示如何使用格式代码和 VBA 代码来修改页眉信息和外观。
VBSub Date_Time()
ActiveSheet.PageSetup.CenterHeader = "&D &B&ITime:&I&B&T"
End Sub