ほどほど

掃除と家事、趣味を楽しむずぼら主婦のブログ

Excel お仕事・勉強・技術情報

ExcelVBA:マクロでファイル名をヘッダに設定する方法

2016/01/25

20100510-1

拡張子を表示する設定でWindowsを使っています。
そのまま、ヘッダにファイル名を設定すると、
ヘッダに拡張子(.xls)まで表示されてしまいます。
拡張子を省いた状態でヘッダにファイル名を設定するためのVBAです。

ソースは以下のとおり。

スポンサーリンク

ファイル名をヘッダに設定するVBAのソース

'=============================================
'ファイル名をヘッダに設定
'2010.05.10
'=============================================
Sub ファイル名をヘッダに設定()

    'ヘッダに設定する文字列
    Dim file_name As String

    'ファイル名を取得して拡張子を削除
    file_name = Replace(ActiveWorkbook.Name, ".xls", "")

    'ヘッダの左に設定
    ActiveSheet.PageSetup.LeftHeader = file_name

End Sub

-Excel, お仕事・勉強・技術情報