如何運用VBA更改頁Excel眉頁腳中的日期格式

在Excel中通過自定義頁腳的方式在頁腳中插入日期時，Excel默認(rèn)將使用短日期格式，如“2009-10-9”，但大家通常習(xí)慣使用“2009年10月9日”這樣的長日期格式。Excel沒有提供直接的方法在頁眉或頁腳中修改日期格式。在工作量不大的情況下，可以在頁眉或頁腳中手工輸入這種長日期格式，但如果工作簿中的工作表數(shù)量較多，逐一手工輸入顯得很繁瑣。用下面的VBA代碼可以快速在所有工作表的頁腳右邊插入長日期格式的當(dāng)前日期：

Sub FormatDateInFooter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.PageSetup.RightFooter = "更新日期：" & Format(Date, "yyyy年m月d日")
Next ws
End Sub