フォルダー内の支店ごとのブックを集計するマクロを

質問

エクセル２０１０で、1つのフォルダ内にある複数のエクセルファイル（約１００支店分）から、日次売上等の集計マクロを作成したいのですが方法がわかりません。
上司からの依頼を受け、ひとり悩んでましたが・・・で皆さんに相談です。ご協力お願いします

■基本条件
・毎日、支店がフォルダ内の売上情報を入力（更新）し保存する。
・全店とも中身は同書式同形式ファイル 　例)実績報告Ａ店.XLS、実績報告Ｂ店.XLS・・・

■マクロ（集計.XLS）でやりたいこと
・各支店ブックの実績シートから、支店名（A5）・売上A（B5）・売上B（C5）を転記し明細表の作成
・集計表の作成

マクロど素人の私に、どなたか教えていただけますでしょうか？
よろしくお願いします。

回答No.1

hallo-2007 · ベストアンサー

■マクロ（集計.XLS）でやりたいこと
・各支店ブックの実績シートから、支店名（A5）・売上A（B5）・売上B（C5）を転記し明細表の作成
この場合ですが、支店名はきちんと別途準備した方が良いでしょうね。
ファイル名から取得することも可能ですが、支店の増減や変更もあるでしょうか
集計用のシートを先に準備します。
一例ですが
1枚の目のシートに
売り上げA
支店名　2014/2　2014/3・・・・
札幌
東北
東京
・・・
沖縄
と2行目から支店名、左方向にデータを蓄積
売り上げBは別シートで同様に準備
データのあるフォルダーに一度、保存
Sub ボタン1_Click()
j = InputBox("転記する列番号", "") * 1

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Workbooks.Open Filename:=ThisWorkbook.Path & "実績報告" & Range("A" & i).Value & ".xls"
ThisWorkbook.Sheets(1).Cells(i, j).Value = ActiveWorkbook.Sheets(1).Range("B5").Value
ThisWorkbook.Sheets(2).Cells(i, j).Value = ActiveWorkbook.Sheets(1).Range("C5").Value

ActiveWorkbook.Close
Next

流れは、A列にある支店名を参考に、フォルダー内のファイルを順次開いて
B5セル、C5セルの値を集計のシートに入れます。

動きが遅ければ
Application.ScreenUpdating
で、画面の変化を止めるなどしてみてください。

お礼

解答有難う御座いました。
　家のパソコンで１０ブックほどで転記をテストでやってみました。問題なく転記でき時間も気になりませんでした。
　会社のパソコンでやってみます。

回答No.2

kotaro2014

こんにちは。

http://www016.upp.so-net.ne.jp/cheetah/xlvba/Excel/Workbook/Workbook062.html に「複数のブックを集計する」というのがありますが、この方法はいかがでしょうか。

参考URL：

http://www016.upp.so-net.ne.jp/cheetah/xlvba/Excel/Workbook/Workbook06.html

お礼

有難う御座います。参考にさせていただきます。