Excel 页眉页脚不会通过 VBA 更改，除非为空

excel

excel是一款广泛使用的电子表格软件，它提供了丰富的功能和工具，使用户能够对数据进行处理、分析和可视化。其中，页眉和页脚是excel中常用的功能，用于在打印时在页面顶部和底部添加额外的信息，比如文件名、日期、页码等。通常情况下，我们可以通过VBA编程来更改页眉和页脚的内容，但要注意的是，如果页眉或页脚已经被设置为非空值，那么VBA将无法直接修改它们，除非将其清空。

在下面的案例中，我们将演示如何通过VBA来更改excel的页眉和页脚。

首先，我们需要打开一个excel文件，创建一个新的工作表，并将其命名为"示例"。然后，在"示例"工作表中的单元格A1填入任意内容，例如"Hello, excel!"。

接下来，我们可以使用以下VBA代码来更改页眉和页脚的内容：

VBA
Sub ChangeHeaderFooter()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("示例")
    
    ' 清空页眉和页脚
    ws.PageSetup.LeftHeader = ""
    ws.PageSetup.CenterHeader = ""
    ws.PageSetup.RightHeader = ""
    ws.PageSetup.LeftFooter = ""
    ws.PageSetup.CenterFooter = ""
    ws.PageSetup.RightFooter = ""
    
    ' 设置新的页眉和页脚
    ws.PageSetup.LeftHeader = "示例页眉 - 左侧"
    ws.PageSetup.CenterHeader = "示例页眉 - 居中"
    ws.PageSetup.RightHeader = "示例页眉 - 右侧"
    ws.PageSetup.LeftFooter = "示例页脚 - 左侧"
    ws.PageSetup.CenterFooter = "示例页脚 - 居中"
    ws.PageSetup.RightFooter = "示例页脚 - 右侧"
End Sub

在上述代码中，我们首先通过ThisWorkbook.Sheets("示例")获取名为"示例"的工作表对象。然后，我们使用ws.PageSetup来访问工作表的页面设置，通过设置LeftHeader、CenterHeader、RightHeader、LeftFooter、CenterFooter和RightFooter属性来更改页眉和页脚的内容。

在代码的最后，我们可以调用ChangeHeaderFooter子过程来执行页眉和页脚的更改。运行代码后，我们可以看到"示例"工作表的打印预览中显示了新的页眉和页脚信息。

excel的页眉和页脚是一项实用的功能，可以在打印时添加额外的信息。虽然通过VBA可以更改页眉和页脚的内容，但如果它们已经被设置为非空值，需要先将其清空。通过上述的案例代码，我们可以轻松地实现对excel页眉和页脚的自定义设置。