我们有m个文件,并使用属性系统在excel文档中显示文档属性。但是我们希望某些属性显示在excel“标题”中。 因此,我创建了一个按钮,该按钮可在每次按下标头时更新标头的属性。
但是我现在有一个问题,因为我想用属性填充所有3个标题(LeftHeader,CenterHeader,RightHeader),但是我的宏仅填充CenterHeader,我不知道为什么。 这是我的宏:
Sub AddHeaderToAll_FromMETADATASheet()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftHeader = "&6" & Worksheets("METADATA").Range("B24").Value
.RightHeader = "&6" & Worksheets("METADATA").Range("B25").Value
End With
Next ws
End Sub