excelシートの一覧

gistfile1.txt

Sub create_sheet_index()
    Dim idx As Range
    Dim i As Integer
    
    ' #index という名前のシートに出力
    Set idx = Worksheets("#index").Cells(3, 2)
    
    i = 1
    For Each sht In ActiveWorkbook.Worksheets
        ' シート名の頭が#は取り込まない
        If Left(sht.Name, 1) <> "#" Then
            idx = CStr(i)
            idx.Offset(, 1) = sht.Name
            ' 次の表示位置へ
            Set idx = idx.Offset(1)
            i = i + 1
        End If
    Next
End Sub