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

Excel 是一款功能强大的电子表格软件，被广泛应用于数据分析、财务管理、项目计划等领域。在使用 Excel 时，我们经常需要对打印输出进行格式设置，包括页眉和页脚的内容。通常情况下，我们可以通过 VBA 编程来更改页眉和页脚的内容，但有一个特殊情况需要注意，即当页眉或页脚已经设置了内容时，无法通过 VBA 直接更改，除非将其内容清空。

vba
Sub ClearHeaderFooter()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PageSetup.LeftHeader = ""
        ws.PageSetup.CenterHeader = ""
        ws.PageSetup.RightHeader = ""
        ws.PageSetup.LeftFooter = ""
        ws.PageSetup.CenterFooter = ""
        ws.PageSetup.RightFooter = ""
    Next ws
End Sub

vba
Sub SetHeaderFooter()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PageSetup.LeftHeader = "公司名称：ABC有限公司"
        ws.PageSetup.CenterHeader = "报表名称：利润表"
        ws.PageSetup.RightHeader = ""
        ws.PageSetup.LeftFooter = "日期：" & Format(Date, "yyyy年mm月dd日")
        ws.PageSetup.CenterFooter = ""
        ws.PageSetup.RightFooter = "页码：" & "第" & "&P" & "页，共" & "&N" & "页"
    Next ws
End Sub