NOOCIW

Excelファイルのシート名を全て抽出するVBAサンプル

カテゴリー

評価はありません (コメント数: 0)

Excelファイルのシート名を全て取得するVBAコードのサンプルです

Private Sub ExtractExcelSheetNames()
    Dim wb As Workbook                  'ワークブック
    Set wb = Application.Workbooks("Sample.xlsx") 'ワークブックをセット
    Dim ws As Worksheet                 'ワークシート
    'ワークブックのワークシート名を全て取得する
    For Each ws In wb.Worksheets
        Debug.Print ws.Name
    Next
End Sub

上記の例では「Sample.xlsx」というファイルを開いた状態で実行するとVBE（ビジュアル・ベーシック・エディター）上のイミディエイトウィンドウにワークシート名を表示します。

イミディエイトウィンドウ

コメント

コメントを残す

CAPTCHA


評価 ※        

投稿をさらに読み込む