ExcelVBAについて質問です｡ﾌｫﾙﾀﾞ内の複数のExcelﾌｧｲﾙ(報告〇〇.XLS)があり､各ﾌｧｲﾙのｾﾙ値を取得して､集計(集計.XLS)に転記したいと思います｡【取得…

ExcelVBAについて質問です｡
ﾌｫﾙﾀﾞ内の複数のExcelﾌｧｲﾙ(報告〇〇.XLS)があり､各ﾌｧｲﾙのｾﾙ値を取得して､
集計(集計.XLS)に転記したいと思います｡
【取得条件】
･｢報告〇〇.XLS｣[ﾁｹｯﾄ]ｼｰﾄの[E3]ｾﾙ値を｢集計.XLS｣[集計]ｼｰﾄに転記
･｢報告〇〇.XLS｣[ﾁｹｯﾄ]ｼｰﾄの[C9]?[M9]までのｾﾙ値を､上記で取得した値の横に羅列
･ﾌｫﾙﾀﾞ選択時は選択ﾀﾞｲｱﾛｸﾞにしたい
【前提条件】
･Excel2003環境で使用
･ﾌｫﾙﾀﾞ内のﾌｧｲﾙ数は80個くらいあります｡
ｿｰｽ付の回答を希望します｡またよい回答は800ﾎﾟｲﾝﾄ以上差し上げます｡

ｻﾝﾌﾟﾙを書いてみました｡
一応､Excel 2003 と Excel 2007 にて確認しています｡

Option Explicit

' 集計表を作成する
Sub MakeSummarySheet()
 Dim strFileNames() As Variant
 Dim strFileName As Variant
 
 Dim nLine As Integer
 
  ' ﾌｧｲﾙを開くﾀﾞｲｱﾛｸﾞを表示
 strFileNames = Application.GetOpenFilename( _
 FileFilter:="Excel ﾌｧｲﾙ (*.xls),*.xls", _
 MultiSelect:=True)

 nLine = 0
 If IsArray(strFileNames) Then
  ' 複数ﾌｧｲﾙ数ぶん処理する
 For Each strFileName In strFileNames
 nLine = nLine + 1
  ' 指定ﾌｧｲﾙの情報を集計表に追記する
 Call AddSummarySheet(nLine, strFileName)
 Next
 Else
 MsgBox "ｷｬﾝｾﾙされました"
 End If
 
End Sub

' 指定ﾌｧｲﾙの情報を集計表に追記する
Function AddSummarySheet(ByVal nLine As Integer, ByVal strFileName As String)
 Dim book As Workbook
 
  ' 集計対象ﾌｧｲﾙをｵｰﾌﾟﾝ
 Set book = Workbooks.Open(strFileName)
 
  ' ｢ﾁｹｯﾄ｣ｼｰﾄの E3 を｢集計｣ｼｰﾄにに転記
 ThisWorkbook.Worksheets("集計").Cells(nLine, 1) = book.Worksheets("ﾁｹｯﾄ").Cells(3, 5)
 
 Dim nColumn
 For nColumn = 1 To 11
  ' ｢ﾁｹｯﾄ｣ｼｰﾄの C9?M9 を｢集計｣ｼｰﾄに転記
 ThisWorkbook.Worksheets("集計").Cells(nLine, 1 + nColumn) = book.Worksheets("ﾁｹｯﾄ").Cells(9, 2 + nColumn)
 Next
 
  ' 集計対象ﾌｧｲﾙをｸﾛｰｽﾞ
 book.Close
 
End Function

ﾃｽﾄﾃﾞｰﾀ
- ﾌｧｲﾙ1:[報告201206.xls] … E3のｾﾙ値｢2012年6月｣
- ﾌｧｲﾙ2:[報告201207.xls] … E3のｾﾙ値｢2012年7月｣
- ﾌｧｲﾙ3:[報告201208.xls] … E3のｾﾙ値｢2012年8月｣
実行結果

1	A	B	C	D	E	F	G	H	I	J	K	L
2	2012年6月	6001	6002	6003	6004	6005	6006	6007	6008	6009	6010	6011
3	2012年7月	7001	7002	7003	7004	7005	7006	7007	7008	7009	7010	7011
4	2012年8月	8001	8002	8003	8004	8005	8006	8007	8008	8009	8010	8011

集計ﾌｧｲﾙは
集計ﾌｧｲﾙ = "C:\test\集計.xls"
ここにﾊﾟｽを記述してください｡

Sub main()

集計ﾌｧｲﾙ = "C:\test\集計.xls"


vntFileName = _
 Application.GetOpenFilename( _
 FileFilter:="ｴｸｾﾙﾌｧｲﾙ(*.xls),*.xls" _
 , FilterIndex:=1 _
 , Title:="ﾌｧｲﾙ選択(複数可)" _
 , MultiSelect:=True _
 )

  'ﾌｧｲﾙが選択されているとき(vntFileNameが配列型)は
  '選択した全てのﾌｧｲﾙをWorkbooks.Openﾒｿｯﾄﾞを使い開きます｡
 If IsArray(vntFileName) Then
 Set s = Workbooks.Open(集計ﾌｧｲﾙ)
 For Each vntGetFileName In vntFileName
 Set h = Workbooks.Open(vntGetFileName)
 k = 0
 If s.Sheets("集計").Cells(1, 1) = "" Then k = 1
 If k = 0 And s.Sheets("集計").Cells(2, 1) = "" Then k = 2
 If k = 0 Then
 k = s.Sheets("集計").Cells(1, 1).End(xlDown).Row + 1
 End If
 
 s.Sheets("集計").Cells(k, 1) = h.Sheets("ﾁｹｯﾄ").Range("E3")
 For c = 1 To 11
 s.Sheets("集計").Cells(k, 1 + c) = h.Sheets("ﾁｹｯﾄ").Cells(9, 2 + c)
 Next c
 
 h.Close
 Next
 s.Save
 s.Close
 
 End If


End Sub