C言語・Excel VBA・その他技術情報

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

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