VBAでExcelのBookの串刺し集計

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

No.1 ベストアンサー 回答者： ham_kamo 回答日時： 2006/11/27 18:04

サンプルソースです。

同じフォルダにある自分以外の*.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

この回答へのお礼

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

お礼日時：2006/11/28 01:02