您好，JA。这是一个技巧性的问题吧？实际上，Excel 中没有您说的这种页脚；而是有以下三种不同的页脚：左页脚、中间页脚及右页脚。下面的脚本可以更改所有这三种页脚：

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)



objWorksheet.PageSetup.LeftFooter = "Left footer"

objWorksheet.PageSetup.CenterFooter = "Center footer"

objWorksheet.PageSetup.RightFooter = "Right footer"

正如您所看到的那样，这个脚本真的没有太多的内容。我们首先创建 Excel.Application 对象的一个实例，然后将 Visible 属性设置为 True；这样，我们就可以在屏幕上看到 Excel 的运行实例了。我们使用 Add 方法添加一个新的工作簿，然后使用以下代码行绑定到 Worksheets 集合中的第一个工作表：

Set objWorksheet = objWorkbook.Worksheets(1)

现在我们只需要为 LeftFooter、CenterFooter 和 RightFooter 赋值，它们正好是工作表的 PageSetup 对象的属性：

objWorksheet.PageSetup.LeftFooter = "Left footer"

objWorksheet.PageSetup.CenterFooter = "Center footer"

objWorksheet.PageSetup.RightFooter = "Right footer"

很酷吧。

这确实是一个不错的点子：您可能不想只将中心页脚读为“中心页脚”。您当然可以为这些页脚赋予任何想要的文本。此外，您还可以在页脚中加入一些 Excel 的特殊格式代码。例如，下面的脚本使用当前日期作为中心页脚：

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)



objWorksheet.PageSetup.CenterFooter = "&D"

其实没什么特别之处：我们只是利用格式代码 &D 来插入日期而已。（请注意，格式代码必须括在引号内，就像任何其他字符串值一样。）

下面的页脚更有创意，给出了 Page 1 of 9 这样的内容。请注意，我们可将常规旧文本和特殊格式代码混合在同一字符串值中：

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)



objWorksheet.PageSetup.CenterFooter = "Page &P of &N"

您能看到我们赋给页脚的值：Page &P of &N。表示的就是“将以下内容放入页脚中：Page 一词后跟当前页号 (&P)，紧接着是 of 一词，之后便是电子表格中的总页数 (&N)。”再简单不过了。

现在，我想问您一个技巧性的问题：如果您将“浸泡”拼写为 S-O-A-K，“笑话”拼写为 J-O-K-E，那么您如何拼写“蛋白”？

抱歉，不可一概而论：蛋白应拼写为 A-L-B-U-M-E-N。（谢天谢地！您问了我们的是一个 Excel 页脚问题，而不是像那样奇怪的问题。）

编辑附注：您可能在想，编辑应采取措施，帮助读者摆脱这类玩笑。但有些时候，只需要动这点小小心思就能让脚本专家（就是 Greg）感觉他们是相当有幽默感的人物。您可以学学编辑的做法，一笑置之。