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

ExcelVBA：マクロでファイル名をシート名に設定する方法

20100510-2

シート名にエクセルファイル名を設定するマクロです。
複数シートに同じシート名はつけられないので、シートが1つの時にしか使えません。

先日の「マクロでファイル名をヘッダに設定する方法」同様、
拡張子を削除して、設定しています。

ソースは以下のとおり。

ファイル名をシート名に設定するVBAのソース

'=============================================
'ファイル名をシート名に設定
'2010.05.10
'=============================================
Sub ファイル名をシート名に設定()

    'シート名に設定する文字列
    Dim file_name As String

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

    'シート名に設定
    ActiveSheet.Name = file_name

End Sub