【EXCEL VBA】ヘッダー・フッターを取得・設定したい

ヘッダーとフッターを取得・設定する方法です。 以下のように 、ヘッダーがフッターが設定されているとします。

PageSetupオブジェクトで解決する

ヘッダーとフッターの情報を取得・設定するには、PageSetupオブジェクトを利用します。以下例では取得のみですが、代入することで設定することができます。

Sub sample()
    Dim ws As Worksheet: Set ws = ActiveSheet
    
    Debug.Print ws.PageSetup.LeftHeader       '左ヘッダー
    Debug.Print ws.PageSetup.CenterHeader     '中央ヘッダー
    Debug.Print ws.PageSetup.RightHeader      '右ヘッダー
    
    Debug.Print ws.PageSetup.LeftFooter       '左フッター
    Debug.Print ws.PageSetup.CenterFooter     '中央フッター
    Debug.Print ws.PageSetup.RightFooter      '右ヘッダー
End Sub

また、以下のコードが利用できます。コードを代入することで、フッター・ヘッダーに現在日時やページ番号を設定することもできます。

コード	説明
&D	現在の日付
&T	現在の時刻
&F	ファイルの名前
&A	シート見出し名
&P	ページ番号
&N	ファイルのすべてのページ数
&Z	ファイル パス