使用宏将标头中的单元格数据填充

时间:2019-03-05 14:39:19

标签: excel vba

我们有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

0 个答案:

没有答案