VBAでExcelのBookの串刺し集計

質問

VBAでExcelのBookの串刺し集計するにはどうすれば良いでしょうか？
同一フォルダ内のファイルをすべて集計したいと思っています。
よろしくお願いします。

回答No.1

ham_kamo

サンプルソースです。同じフォルダにある自分以外の*.xlsファイルをの１番目のシートのA1セルの値を合計して表示します。

Sub BookShuukei()
　　Dim FileName As String
　　Dim Total As Integer
　　Dim OpenedBook As Workbook
　　Dim IsBookOpen As Boolean

　　FileName = Dir("*.xls")
　　Application.ScreenUpdating = False
　　Do While FileName <> ""
　　　　If FileName <> ThisWorkbook.Name Then
　　　　　　IsBookOpen = False
　　　　　　For Each OpenedBook In Workbooks
　　　　　　　　If OpenedBook.Name = FileName Then
　　　　　　　　　　IsBookOpen = True
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　If IsBookOpen = False Then
　　　　　　　　Workbooks.Open (FileName)
　　　　　　End If
　　　　　　Total = Total + Workbooks(FileName).Sheets(1).Range("A1").Value
　　　　　　If IsBookOpen = False Then
　　　　　　　　Workbooks(FileName).Close
　　　　　　End If
　　　　End If
　　　　FileName = Dir()
　　Loop
　　Application.ScreenUpdating = True
　　MsgBox (Total)
End Sub

お礼

丁寧にコードを書いて頂きありがとうございました。
試させて頂きます。