シート 指定ブックにある全てのシート名を取得する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][シート 指定ブックにある全てのシート名を取得する]
Option Explicit


Sub ExcelSheetAllName()
'*****************************************
'指定ブックにある全てのシート名を取得する
'*****************************************

Dim bok As Workbook, Sht As Worksheet
Dim strMSG As String, i As Long

Set bok = ThisWorkbook

Application.ScreenUpdating = False
i = 0
    For Each Sht In bok.Worksheets
        With Sht
           i = i + 1
           strMSG = strMSG & i & vbTab & .Name & vbCr

        End With
    Next Sht
Application.ScreenUpdating = True

MsgBox strMSG

End Sub





Production Japan Import Application. Since 1998