7.3 ワークブックの名前を知る方法
ワークブックやワークシートの名前を知る方法です。???.Nameプロパティで知ることができます。また、ワークブックが持っているワークシート数や、現在開いているワークブック数を取得するときは???.Countで取得できます。

ちなみに???の部分は、どちらもお馴染みのSheets(n)Worksheets(n)Workbooks(n)などのワークシートやワークブックを表すオブジェクトです。詳しくは、2.1 直接指定する方法2.2 間接的に指定する方法をどうぞ。
使用例
???.Name???.Countの使用例です。例では、2つ目のワークブックの名前(ファイル名)を取得しセルA1へ、そのワークブックが持っているワークシート数をセルA2へ、同じくそのワークブックの1つ目のワークシートの名前をセルA3へ入れています。

Sub prcName()

    '現在開いているワークブックの数をセルA1へ入れます
    Range("A1").Value = "開いているワークブック数は : " & Workbooks.Count

    '1つ目のワークブックの名前を取得しセルA2へ入れます
    Range("A2").Value = "1つ目のワークブックのファイル名は : " & _
                        Workbooks(1).Name

    '1つ目のワークブックが持つワークシート数をセルA3へ入れます
    Range("A3").Value = "1つ目のワークブックが持つワークシート数は : " & _
                        Workbooks(1).Worksheets.Count

    '1つ目のワークブックの1番目のワークシート名をセルA4へ入れます
    Range("A4").Value = "1つ目のワークブックの1番目のワークシート名は : " & _
                        Workbooks(1).Worksheets(1).Name

End Sub
 ※このエクセルマクロはワークシート内へ記述するマクロです
Copyright(C) 1999-2006 結城圭介。 All rights reserved