ほどほど

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

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

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

2016/01/25

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

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