vba批量修改excel页眉

可以VBA编写代码来批量修改Excel页眉。以下是一个简单的示例代码：

Sub ChangeHeader()
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim myHeader As String

'设置文件路径和扩展名
myPath = "C:\Users\UserName\Documents\Excel Files\"
myExtension = "*.xlsx"

'循环处理每个文件
myFile = Dir(myPath & myExtension)
Do While myFile <> ""
'打开文件
Workbooks.Open (myPath & myFile)

'修改页眉
myHeader = "新的页眉内容"
ActiveSheet.PageSetup.CenterHeader = myHeader

'保存并关闭文件
ActiveWorkbook.Save
ActiveWorkbook.Close

'获取下一个文件
myFile = Dir
Loop
End Sub

以上代码将会循环处理指定路径下的所有Excel文件，并将它们的页眉修改为“新的页眉内容”。你可以根据需要修改代码中的文件路径、扩展名和页眉内容。