シート名を抽出するには？ (ID:122452)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まぁ、今日は機嫌が良いのでソースが提供されたりしますがｗ。 ボクからすんなりソースだけがもらえる場合、プログラマとしての 将来に見込みなし…と判断されている場合も多いので気をつけ ましょう♪。 [エクセルＶＢＡ] Sub Macro1() Dim wBook As Excel.Workbook Dim i As Integer Set wBook = Application.Workbooks.Add With wBook.Worksheets(1) .Range("A1").Value = ThisWorkbook.Name For i = 1 To ThisWorkbook.Worksheets.Count .Cells(i, 2).Value = ThisWorkbook.Worksheets(i).Name Next End With End Sub