シート名の取得にはNameプロパティを使用します。
アクティブシートの名称を取得
実行プログラム
1 2 3 4 5 |
Sub Sample6_1_1() MsgBox ActiveSheet.Name End Sub |
実行前
![](http://excelmemo.com/wp-content/uploads/PIC060101-300x233.jpg)
実行後
![](http://excelmemo.com/wp-content/uploads/PIC060102-300x233.jpg)
全シート名を取得
実行プログラム
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample6_1_2() Dim strTemp As String Dim i As Integer strTemp = "" For i = 1 To Worksheets.Count strTemp = strTemp & Worksheets(i).Name & vbCrLf Next MsgBox strTemp End Sub |
実行前
![](http://excelmemo.com/wp-content/uploads/PIC060103-300x232.jpg)
実行後
![](http://excelmemo.com/wp-content/uploads/PIC060104-300x232.jpg)