3つの別々のExcelを1つのExcelに集計

質問

お世話になります。

現在会社でバラバラで管理されているExcelデータを集計する仕組みを作るように依頼されました。しかし当方VBAは素人なので、どうやってこの依頼を実現したら良いのか全く分からず困っております。
下記に内容を質問させていただきます。

(依頼内容)
下記(1)～(3)の各支店の売上データを1つのExcel(4)に集計したい

(使用するデータ)
(1)東京.xls 置き場所= \\サーバーIP\東京\東京.xls
(2)千葉.xls 置き場所= \\サーバーIP\千葉\千葉.xls
(3)大阪.xls 置き場所= \\サーバーIP\大阪\大阪.xls
(4)集計.xls 置き場所= 私のデスクトップ

東京、千葉、大阪、の3つのExcelはそれぞれ月毎1～31日までの売上金額が記述されています。3つのExcelのデータの範囲の列はA1～A3固定で同じですが下限はバラバラです。
またこの3つのExcelは同じサーバー上に置いてあります。(パスは異なります)

Excelの中身はこのような感じです
A1 A2 A3
【日】 【担当者】 【売上金額】
1日 鈴木 100円
2日 田中 1000円
3日 高橋 500円

(やりたいこと)
私のローカルに置いてある上記(4)の集計.xlsを使用して(1)～(3)のExcelのデータを一発で集計したいのです。
例えば集計.xlsの[集計]というボタンを押すと(1)～(3)のExcelの全データを集計.xlsの[[集計結果]というシートにコピペしたいのです。

上記仕組みを実現するためのサンプル等をご教授いただけますと大変嬉しい限りでございます。

自分で出来ないながらもVBAのサンプルも作らずにお聞きするだけで図々しいのは百も承知ですが、会社からは今月中に完成させてくれと言われ、焦っています。どなたか良き方法をご教授いただけませんでしょうか？

環境
Excel2003
Windows XP SP3
サーバーは・・分かりません

よろしくお願い致します。

回答No.2

tsubuyuki · ベストアンサー

Sub Test1()
Dim oldWB As Workbook
Dim newWB As Workbook, newWS As Integer

Set newWB = ActiveWorkbook
newWS = newWB.Worksheets.Count

Workbooks.Open Filename:="正確なパス＋ファイル名"
Set oldWB = ActiveWorkbook

oldWB.Sheets("コピーするシート名").Copy After:=newWB.Sheets(newWS)
oldWB.Close
End Sub

これを「集計.xls」のThisWorkbookプロシージャあたりに貼り付け、
> パスは異なります
と言うことなので、元ファイルの数分、ファイル名・シート名を手作業で打ち直して実行。

マクロの使い方はご自身で調べましょう。

一つのファイルに集約されたら、あとは串刺しで計算させるだけです。

一つのフォルダに集約できるなら

Sub Test2()
Dim oldPath As String, oldWB As String
Dim newWB As Workbook, newWS As Integer

Set newWB = ActiveWorkbook

oldPath = "正確なパス（￥）まで"
oldWB = Dir(oldPath & "*.xls*")

Do Until oldWB = ""
newWS = newWB.Worksheets.Count

Workbooks.Open Filename:=oldPath & oldWB

Workbooks(oldWB).Sheets(1).Copy After:=newWB.Sheets(newWS)
Workbooks(oldWB).Close False

oldWB = Dir()
Loop
End Sub

ただし、集計.xlsとは別の場所にフォルダを作ること、
コピー元のシート名に重複がないことが条件です。

お礼

tsubuyukiさん、お礼が遅くなりまして申し訳ございませんでした。
ベストアンサーにしてお礼を忘れておりました・・。
失礼いたしました。

おかげ様で無事に実現することができました。
本当に助かりました(^^)。今後、勉強したいと思います。

ありがとうございました！！

補足

tsubuyukiさん、ご連絡いただきましてありがとうございます。

当方の自分勝手な申し出に対して、詳細なロジック、かつご丁寧なご説明を添えていただきまして本当にありがとうございます。

早速試してみます！
取り急ぎお礼申しあげます。

回答No.1

tsubuyuki

最低限度、足りない情報が３つです。

（１）集計結果のレイアウト
（２）集計元の「シート名」、集計元それぞれに１枚なのか複数枚あるのか
（３）３ファイルからのコピーペーストであれば、手作業でも大差ないと思うがいかがか。

特に（３）、集計元が同じレイアウトであるなら、
デスクトップにあるという「集計.xls」に「東京・千葉・大阪・集計」の４シートを用意、
「東京.xls」ブックを開き、該当シートをコピー、
「集計.xls」の「東京」シートに値を貼り付け（以降、千葉・大阪についても同様）。
「集計」シートにお好みの集計。

マクロを組むよりよほど早いです。
と言うか、他人にマクロを組ませて校閲するよりよほど確実で迅速と思います。
あと１日半しかないんだから、悩むよりまず動きましょう。

補足

tsubuyukiさんありがとうございます。

(1)集計結果のレイアウトは各3種類のExcelと同じです
(2)[集計結果]というシート1つにコピペします
(3)今はとりあえず例で3拠点としていますが実際には10拠点ありますため集計を自動化したいと思っています

複数のExcelを1つのExcelに自動でコピペするやり方をご教授いただければ幸いです。