Ｅｘｃｅｌ ＶＢＡにてシート名の取得方法

質問

Ｅｘｃｅｌ　ＶＢＡにてシート名の取得方法はどのようにおこなうのでしょうか？

よろしくお願い致します。

回答No.3

kazuhiko5681 · ベストアンサー

初めまして。
変数 = Activesheet.nameでもとれますが、これだとその時アクティブになっているシート(選択されているシート)の名前しか取得できません。次のように操作すると色々なシート名を取得することができます。
・そのブックの選択されているシート以外のシート名を取得する。
変数 = Activeworkbook.worksheets(取得したいシート番号).Name

・そのブックのすべてのシート名を取得する。
sub Test

Dim i as integer
Dim myWsn(1 to Worksheet.count) as String

For i = 1 to Worksheet.Count
myWsn(i) = activeworkbook.worksheets(i).name
msgbox mywsn(i)
next i
これを実行すると、そのブックにあるすべてのシート名が、メッセージボックスに表示されます。

・２つ以上のブックを開いていて、選択されていないブックのシート名を取得する。
変数 = Workbooks("取得したいブック名.xls").worksheets(取得したいシート番号).Name

お礼

ありがとうございました

参考になりました

回答No.2

imogasi

ご質問を別の意味から捉えると、回答は
Sub test01()
i = 1
Dim sht As Worksheet
' MsgBox ActiveWorkbook.Name
For Each sht In ActiveWorkbook.Sheets
Cells(i, 1) = sht.Name
i = i + 1
Next
End Sub
For EachとActiveWorkbook.Sheetsがポイントです。

お礼

ありがとうございました

参考になりました

回答No.1

taknt

ActiveSheet.Name
でどうでしょうか？

お礼

ありがとうございました

またなにかあったらよろしくお願い致します。