ExcelVBAで特定フォルダに格納した複数のブックからデータ（表）を一つのブックにまとめたい

Question

前提・実現したいこと

Excel VBAでフォルダにまとめてあるいくつかのブックから表を取り出して一つのブックにまとめるというマクロを作りたいです。
ファイルの名前は基本的に統一されています。(区別するために末尾がAやBという違いがあるのみ)
ファイルにはシート1に表を作っていて、それを一つのブックにまとめてずらっと表示させることが目標です。
表の幅はA~Rまで、行数はブックによって異なります。
マクロブックにボタンを設置しており、それを押すとフォルダ選択画面が開き、フォルダを選択すると処理が実行されるという流れです。
特に条件等はなく、そのまま表まるごと並べていきたいです。

発生している問題・エラーメッセージ

表を取り出せない。まっさらの状態で新規ブックが出来上がる。

該当のソースコード

Answer 1

1、結果ブックは毎回開くようになっていますが
最初に開いて、最後に保存して閉じるが良いです。
(ファイルをまとめるの関数内で行なってください)

2、結果ブックは、プライベート変数で宣言が良いです。
wbk_newは、関数の外に出してください。

3、Get集約の関数で、copy関数を使って開いたファイルからコピーしてください。

Comments

[cjapan35]

ありがとうございます。
wbk.Worksheets("ファイル").Copy After:=wbk_new.Worksheets("集約")
を追加したのですが、オブジェクト変数またはWithブロック変数が設定されていませんとでるのですが、解決方法がわかりません。

[tgo]

セルのコピーだと
Worksheets("Sheet1").Range("A1").Copy Worksheets("Sheet2").Range("C2")
（Sheet1のセルA1からSheet2のセルC2にコピーする場合）
でできます。

[cjapan35]

ありがとうございます。シートのコピーではなくセルを範囲指定してコピーしなければなりませんでした。結果的に
sh.Range("R" & i).MergeCells = False
sh.Columns("A:R").Copy
wkst.Rows(j).PasteSpecial
これて表を取り出すことができました。

ただ現時点ではブックを一つにまとめることができていなくて、フォルダに二つブックがあれば二つ出来上がってしまう形です。
一つにまとめる処理を書きたいのですが、その辺は初めに回答いただいた結果ブックをプライベート変数で宣言というあたりが必要になってくるのでしょうか？

[tgo]

プログラムが進んだようで良かったです。
まとめたいとの話ですが、毎回違うブックを開いてないですか？
開くブックのファイル名が違えば、違うブックが開かれます。
プライベート変数にして、処理が始まる前に、開いて、処理が終わった後に閉じる方法のでもよいと思います。

[cjapan35]

ありがとうございます。
質問時に書いたコードを別の場所(関数)に移す程度のことで可能ですか？
それとも新たにコードを書き足したりする必要がありますか？

[cjapan35]

あ