エクセル -> VBA
ブック内の全てのシート名を取得する。
カレントブックの場合
For i = 1 To Worksheets.Count Cells(i, 1) = Worksheets(i).Name Next i
ブックを指定する場合
For i = 1 To Workbooks("book1").Worksheets.Count Cells(i, 1) = Workbooks("book1").Worksheets(i).Name Next i