フッターにファイル名を表示させるには、以下の2通り。
●Excel VBA から表示させる
コードの該当箇所に、Withステートメントを記述する。
※下の例はフッター右側部分に表示させための記述のみ有効にし、
他の部分はコメントアウトにしている。
With ActiveSheet.PageSetup
' .LeftHeader = Range("A1").Value 'ヘッダー左側
' .CenterHeader = Range("A2").Value 'ヘッダー中央
' .RightHeader = Range("A3").Value 'ヘッダー右側
' .LeftFooter = Range("A4").Value 'フッター左側
' .CenterFooter = Range("A5").Value 'フッター中央
.RightFooter = ThisWorkbook.Name 'フッター右側
End With
●Excel から表示させる
メニュー → ページレイアウト
→ ページ設定
→ ヘッダー/フッター
→ フッターの編集
→ 挿入したい箇所(左、中央、右から)に「&[ファイル名]」と記述する。
