ファイル内のすべてのシートを処理する
１．対象のExcelファイルを開きます。
Dim wb As Workbook
Set wb = Workbooks.Open("C:\TestFolder\TestWorkbook.xlsx")２．ファイル内のすべてのシートに対してループ処理を行います。以下のコードを使用して、ファイル内のすべてのシートをループ処理できます。
Dim ws As Worksheet
For Each ws In wb.Worksheets
'ここに処理のコードを記述します
Next３．各シートに対して、必要な処理を実行します。たとえば、セルの値を読み取り、書き込み、または書式設定することができます。以下は、セルの値を読み取る例です。
Dim cellValue As String
cellValue = ws.Range("A1").Value完全なコード
Sub ProcessSheetsInWorkbook()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\TestFolder\TestWorkbook.xlsx")
Dim ws As Worksheet
For Each ws In wb.Worksheets
'セルの値を読み取ります
Dim cellValue As String
cellValue = ws.Range("A1").Value
'ここに処理のコードを記述します
Next
End Subファイル内のすべてのシートを処理する2
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
’処理内容
Next Ws
コメント