マクロ 違うファイルから抽出して貼り付け

質問

使うファイルは「重点」ファイルと「田中」ファイル
【重点】ファイルには　シート：入力　シート：集計　とある
このファイルは月末に私だけが全担当者の項目数の集計を出す為に処理しています。
シート：入力には　既に作成しているリストボックスがあり→列A～Cに（各名前60名）　Dに月（4月～3月）　E～G項目（各項目10件）
その隣にコマンドボタンで検索と保存を作成しています。
そのA～Cのリストボックスの中から【名前】【月】を選び検索を押すとB15～B25まで名前が出て、C15～C25月が出て、E15～E25項目が出る。
シート：集計にはシート：入力の各名前60名・4月～３月・各項目と（E15～E25）に入力した数がピボットテーブルに反映しシート：集計に表示されるようになっています。

ここからどうしてもわからないのですが、

【田中】ファイルには　シート：4月～3月　12シートある。
12シート全部、列・行に入っている項目は同じです。
このファイルは田中さんが各項目に添って入力しています。
その中の、K列（K5～K10）に合計数が入っています。
このK列の合計数を「重点」ファイルのE列（E15～E25）に貼り付けたいのですが、どのようにマクロを作成したらよいのでしょうか？

【重点】ファイル　シート：入力のE15～E25に、【田中】ファイル以外各担当者名のファイル60ファイルを開きK5～K10の合計数を入力しています。
これに手間がかかっています。

この【重点】ファイルのE15～E25に貼り付けた後は【田中】ファイル又各担当者のファイルは保存しません。開いて参照しているだけです。

どうかお力をお貸し下さい。
宜しくお願い致します。

回答No.3

mt2008 · ベストアンサー

当方の環境ではそのエラーは出ないので何とも言えないのですが、シートにズームの設定などがされているとメモリ不足エラーがでる事があるらしいです。該当しませんか？
Application.ScreenUpdating = False　/　True　はこのエラーに有効かどうかは解りませんが、処理速度は上がるはずです。

補足

何度もすみません。
これで成功します。
どうか宜しくお願い致します。

"C:\社内フォルダ\5020地区グループ\重点項目\重点集計システム\H25年度\各個人表\１グループ\南基地\田中.xls"
田中さん以外の方約50名は、
\1グループ\東京基地\田中.xls"のここからフォルダーが変わります。
グループ（1・2・3）、基地（南・北・西）、このような場合いはどうしたらよいのでしょうか？

下記のようなL４４に１グループのフォルダ中の個人名を入力するとファイルが開くと言うこのレベルしか考えられません。

Workbooks.Open Filename:= _
"C:\社内フォルダ\5020地区グループ\重点項目\重点集計システム\H25年度\各個人表\１グループ\南基地\" & Range("L44").Value & ".xls"

これだと２グループからどうしたらよいのかわかりません。

理想は、個人名を入力すると個人名で保存されているエクセルファイルが開くと言うものにしたいのですが・・・。

回答No.4

mt2008

大分本題から離れちゃいましたね(^^;
シート上に個人別シートを登録しておくリストと、今回の対象個人ファイルを選択するエリアを作っては？

添付の図ではA5:B9に対象となる個人名のファイルと、そのフォルダを入力してあります。
A2の選択個人名は、「データの入力規則」の入力値の種類を「リスト」にしてA5:A9の中から個人名ファイルを選択できるようにします。
で、B2セルには↓の式を入れます。
=IF(A2="","",VLOOKUP(A2,A5:B9,2,FALSE)&A2)

これで、個人名ファイルを選択すると、B2セルにはフルパスでファイルの情報が表示されます。
個人名ファイルを選択後、ボタンか何かでマクロを起動させ、マクロではA2セル、B2セルの値を参照するようにしては如何でしょう。

お礼

何度もありがとうございました。
本当に助かりました。

回答No.2

mt2008

> ご質問なのですが、i とは何を指しているのでしょうか？

iは変数です。
直前の　For i = 5 To 10　で5～10になるように宣言してありますので、

i=5 の時
.Range("E" & i + 10) = Evaluate("Sum('[田中.xlsx]4月:3月'!K" & i & ")")
は、↓と同じことになります。
.Range("E15") = Evaluate("Sum('[田中.xlsx]4月:3月'!K5)")

この時、田中ブックの4月:3月シートのK2の合計値を、自シートのE15セルに代入しています。

補足

すごいです。
本当にわかりやすいご回答、本当にありがとうございました。

ですが、実行すると次は「メモリ不足です。完全に表示できません」と出ます。シート数は少ないはずなのですが・・・。何か対策等ありますでしょうか？
私なりに勉強したところ、
マクロの先頭にApplication.ScreenUpdating = False
マクロの最後Application.ScreenUpdating = True
をいれると少しは改善されるとあるのですが？これは有効でしょうか？
また、何か違った対策等ありますでしょうか？
宜しくお願い致します。

回答No.1

mt2008

質問文の前半は良くイメージできなかったので考慮していません。悪しからず。
「田中」ブックの4月～3月シートのK5：K10合計値（各シートの串刺し集計値）を、自ブック（「重点」）のSheet1のE15:E20（質問文ではE15:E25でしたが、数が合わないのでE20までとしました）に貼り付けるマクロのサンプルです

Sub Sample()
　　Workbooks.Open Filename:="C:\Temp\田中.xlsx", ReadOnly:=True
　　With ThisWorkbook.Sheets("Sheet1")
　　　　For i = 5 To 10
　　　　　　.Range("E" & i + 10) = Evaluate("Sum('[田中.xlsx]4月:3月'!K" & i & ")")
　　　　Next i
　　End With
　　Windows("田中.xlsx").Close
End Sub

補足

ご対応ありがとうございました。
.Range("E" & i + 10) = Evaluate("Sum('[田中.xlsx]4月:3月'!K" & i & ")")
　　　　Next i
勉強不足な私にお教え下さい。
ご質問なのですが、i とは何を指しているのでしょうか？
宜しくお願い致します。