複数のブックから特定データ群を新ブックにまとめたい

質問

こんにちは。
EXCEL2007について、ご教示ください。

EXCEL2007で、複数ブック内の特定シート上にある特定のデータ（複数）
を特定ブックにまとめたいのですが、うまくできずに悩んでいます。

＜やりたいこと＞
　・参照元は特定フォルダ内にある全ファイルが対象（100程度）

　・ブック内の特定シートが対象（シート名は

　・コピー
　　(1) 元シートのA4～F4セル（セル結合されています）のデータを、
　　　　先シートのB2セルへコピー
　　(2) 元シートのG4～L4（セル結合）のデータを、先シートのC2セル
　　　　へコピー
　　(3) 元シートのG6～R6セルのデータを、先シートのE2セルへコピー

　・コピー２
　　次ブックを読み込み、１行下（B3、C3、E3）にコピーする。

　・コピー３
　　以降１行下にコピーし、ファイルが無くなるまで繰り返す。

以上ですが、マクロでできるように教えていただけないでしょうか。
よろしくお願いいたします。

回答No.3

emaxemax · ベストアンサー

> 「実行時エラー'g':
> インデックスが有効範囲にありません」
> と表示されます。

多分、シート名が違うのだと思います。
転記元および転記先のシート名をご確認ください。

お礼

何度もすみません。

> 多分、シート名が違うのだと思います。
> 転記元および転記先のシート名をご確認ください。

ご指摘の通り、転記元のシート名に誤りがありました。
修正したところ、うまくいきました。

これで何百件ものコピペをしなくて済みます。
本当にありがとうございました。

回答No.2

emaxemax

転記元になる特定シートや転記先のシート名をお書きでないので、転記元がすべて「Sheet1」で共通、転記先が「統合」ということにして書いてみました。

以下のコードを転記先のBOOKの標準モジュールにコピペします。
ただし、実行する場合は実際のシート名に変更してくださいね。
最初フォルダーを選択する画面がでますので、そこから転記元ファイルが格納されているフォルダーを選んでください。

Sub TEST()
　　Dim myfdr As String, fname As String
　　Dim mb As Workbook, wb As Workbook
　　Dim n As Long
　　With Application.FileDialog(msoFileDialogFolderPicker) '対象とするフォルダの指定
　　　　If .Show = True Then
　　　　　　myfdr = .SelectedItems(1)
　　　　Else
　　　　　　MsgBox "キャンセルします。"
　　　　　　Exit Sub
　　　　End If
　　End With
　　Set mb = ThisWorkbook 'このコピー先ブックをmbとする。
　　fname = Dir(myfdr & "\*.xls*") 'フォルダ内のExcelブックを検索
　　n = 2
　　Do Until fname = Empty '全て検索
　　　　Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。
　　　　With mb.Sheets("統合") '転記
　　　　　　.Cells(n, "B").Value = wb.Sheets("Sheet1").Range("A4").Value
　　　　　　.Cells(n, "C").Value = wb.Sheets("Sheet1").Range("G4").Value
　　　　　　.Cells(n, "E").Value = wb.Sheets("Sheet1").Range("G6").Value
　　　　End With
　　　　n = n + 1 'カウント
　　　　wb.Close (False) '開いたブックを保存しないで閉じる
　　fname = Dir 'フォルダ内の次のExcelブックを検索
　　Loop '繰り返す
　　MsgBox n - 2 & "件のブックを転記しましました。"
End Sub

補足

ご丁寧に教えてくださり、ありがとうございます。

早速試してみましたが、１件転記後にエラーになってしまいます。

「実行時エラー'g':
インデックスが有効範囲にありません」
と表示されます。

何が問題なのか、再度ご教示いただけますか。

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

回答No.1

CaveatEmptor

VBAを使えば比較的簡単にできると思いますが、質問者様のVBAのスキル次第です。

流れとしてはフォルダ内にあるブックを開くたびにコピー先を１行下げてデータをコピーするだけですよね。

コピー元のブック名やシート名は不要なのでしょうか？

また開いていくブックの順番はランダムでもいいのでしょうか？

補足をお願いします。

補足

申し訳逢いません、VBAのスキルはありません。

記述が漏れてしまいましたが、コピー元ブック名の先頭10文字を、A1セルへコピーします。

参照先のフォルダ内のファイルをすべて開ければ、開く順番はランダムでも結構です。

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