エクセルVBA書籍やシートをループ
以下は、我々はすべての開いているブックとワークシート、およびディスプレイすべての名前をループエクセルVBAでプログラムを見ていきます。
状況：
コマンドボタンに次のコード行を追加します。
1.まず、我々は、2つのオブジェクトと一つの変数を宣言します。タイプワークブックの目的の一つは、私たちはシートを呼び出すタイプワークシートの一つの目的、本を呼び出し、String型の変数には、我々はテキストを呼び出します。
Dim book As Workbook, sheet As Worksheet, text As String
2.我々は、すべての開いているブックをループにしたいです。これを実現するために、次のコード行を追加します。
For Each book In Workbooks
3.私たちは、テキスト「ワークブック：」書く、ワークブックの名前、およびテキスト「ワークシート： 『変数テキストを』
text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
注意：CONCATENATEに＆演算子を使用することができます要素を（参加する）新しい行を開始するには、vbNewLineを使用することができます
4をループにワークブックのすべてのワークシートによって、以下のコード行を追加します。。
For Each sheet In book.Worksheets
5 。我々は、変数テキストに、ブックのワークシートの名前を書きます。
閉じる
text = text & sheet.Name & vbNewLine
6秒のループ。
Next sheet
7.白い行を追加します。
text = text & vbNewLine
8.最初のループを閉じることを忘れないでください。
Next book
9を最後に、私たちはメッセージボックスを使用して変数のテキストを表示する。
MsgBox text
10.テストプログラムあなたは、コマンドボタンをクリックし、ワークシート、いくつかの説明的な名前を与え、3つのワークシートで空白のブックを開く前に
結果：。。
