如果您想在工作表的页眉/页脚中插入某些信息，例如文件名/文件路径或当前日期或页码，则可以使用以下代码进行。如果仅是一个工作表，则可以手动进行操作，但是如果工作表中的多个工作表或所有工作表都需要填充此信息，则可以使用简单的vba宏/代码来完成此操作。

|此示例宏将在活动工作簿的每个工作表中插入页眉/页脚。它还将插入工作簿的完整路径。

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

Each wsInThisWorkbook.Worksheets

With ws.PageSetup

.LeftHeader = “Company Name:”

.CenterHeader = “Page &P of &N”

.RightHeader = “Printed &D &T”

.LeftFooter = “Path : “ &ActiveWorkbook.Path

.CenterFooter = “Workbook Name: & F”

.RightFooter = “Sheet: &A”

End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

要将此代码复制到您的工作簿，请按键盘上的Alt + F11。

然后在左侧，您将看到Microsoft Excel对象。右键单击并选择插入。然后单击“模块”，然后将此代码复制到右侧的代码窗口中。

让我们分解代码的每一部分–我们从通常的Dim语句开始，在该语句中声明变量。

在这种情况下，我们只有1个变量-工作表的ws。然后，我们禁用屏幕更新。

现在，在FOR循环中，我们遍历工作簿中包含宏的每个工作表。然后，我们在页面设置中设置每个参数。 ＆P，＆N，＆D，＆T，＆F和＆A是可以应用于页眉和页脚的某些格式代码。 ＆P打印页码。 ＆N打印文档中的总页数。 ＆D打印当前日期。 ＆T打印当前时间。 ＆F打印文档的名称，＆A打印工作簿选项卡的名称。

最后，我们将工作表设置为空，然后释放对象并启用屏幕更新。

这是2张图片。宏运行后，第一个^显示页眉，第二个 n显示页脚。

img1

标题带有公司名称标签。由于我们尚未将其链接到任何单元格或未输入公司名称的任何文本，因此尚未输入名称。如果您在代码中或excel工作表中输入任何内容并进行引用，则将在此处选择并填充该名称。

第0页，显示当前文件中有0页，因为我们已在空白文件上运行此代码。如果在包含数据的文件上运行此代码，它将显示页码。

Printed <Date> <Time>为您提供了运行宏的日期和时间以及文本“ Printed”。

img2

在页脚中，“路径”标签将为您显示当前文件的路径。

我们的文件名是Book1.xlsx，当前是未保存的文件。因此，“路径”标签没有显示任何路径。

工作表编号填充在页脚的右侧。

如果您喜欢我们的博客，请在Facebook上与您的朋友分享。您也可以在Twitter和Facebook上关注我们。

我们很高兴收到您的来信，请让我们知道我们如何改进，补充或创新我们的工作，并为您做得更好。写信给我们[email protected]