Question

VBA修改excel页眉中加入变量的问题

想要弄成如： 2013年九月收费一览表（一二）
2013年九月收费一览表（三四）
这样的页眉效果，页眉是分开修改的，奇偶页不同，并且月份会变，是个变量，不知道怎么改，求教。

这是目前的代码：

' 修改 “汇总” 页眉
Sheets(this_MOUTH & "汇总").Select
ActiveWindow.View = xlPageLayoutView
With ActiveSheet.PageSetup

.LeftHeader = "&""楷体_GB2312,常规""" & Chr(10) & "<概况>"
.CenterHeader = _
"&16 &18 this_YEAR &""隶书,常规""&20this_MOUTH&""宋体,常规""&18收费一览表&""楷体_GB2312,常规""&14（一二）"
.RightHeader = "&""楷体,常规""" & Chr(10) & "&""楷体_GB2312,常规""<明细>"

.EvenPage.LeftHeader.Text = "&""楷体_GB2312,常规""" & Chr(10) & "<概况>"
.EvenPage.CenterHeader.Text = _
"&18 this_YEAR &""隶书,常规""&this_MOUTH&""宋体,常规""&18收费一览表&""楷体_GB2312,常规""&14（三四）"
.EvenPage.RightHeader.Text = "&""楷体_GB2312,常规""" & Chr(10) & "<明细>"
End With
ActiveWindow.View = xlNormalView

Answer 1

貌似少了一句：
.OddAndEvenPagesHeaderFooter = True
建议增加后再测试一下看看。