ExcelVBAでフォルダの中のブックを一つにまとめる上で、一つ目のデータの最終行の下に2つ目のデータを貼り付けたい

Question

前提・実現したいこと

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

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

実行時エラー'-2147221080(800401a8)':
オートメーションエラーです。

というエラーが
" LastRw2 = wbk_new.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row "
のところで表示されます。

Comments

[Secret]

コードを見れておりませんが、これに状況が似てますね。
確認されましたか？
https://teratail.com/questions/125847

[cjapan35]

当該箇所にactiveと入れてみましたがオートメーションエラーは消えませんでした。

[nanami12]

LastRw2 　の　右辺に　数値を入れても　おちますか？(最終行)

[cjapan35]

自分の解釈があってるか分かりませんが、LastRw2の右辺を消して1と入れてみたところ、wbk_new.SaveAs (workBookName)　の部分が黄色くなり、オートメーションエラーと表示されました。

[nanami12]

つまり、このことから。最終行を代入するぶんには落ちないという切り分けができましたね。
落ちる箇所が変わったので。
素朴な質問ですが、再帰関数内部のループでファイルのopen、集計、保存を行ってないのは
なぜでしょう？

[Secret]

そのデバッグ中にworkBookNameの変数の中身を見てください。
ファイル名だけでパスの情報がなかったりしませんか？

[cjapan35]

ありがとうございます。
新規ファイルをループで何度も開くのは処理的にもよくないことかと思ったので外に出して初めに開くようにしています。
ループの方でオープン、集計、保存を行わなければならないのでしょうか？

[nanami12]

参考までに私の書いたリコール(再帰呼び出し)を参考にされてください。
https://teratail.com/questions/201039

[cjapan35]

Secretさん
workBookName変数の中が空になってました。ここにパスの情報を入れなければならないのですね。
どういった指定をすればいいのでしょうか？

nanami12さん
すみません、見たのですがあまりわかりませんでした。
VBAを全く学んだことのない状態でこのマクロを作り始めているものでして...

[kikukiku]

ExcelVBAの基礎を学んだ方が良いと思います。
https://excel-ubara.com/excel_vba.html

Answer 1

どうもありがとうございます。解決しました。

Answer 2

Call SEARCH_SUB_FOLDER(objFSO.GetFolder(strPATHNAME))　の前で、
wbk_new.Close savechanges:=True　があり、「wbk_new」を閉じてしまっていることが
オートメーションエラーの原因のような気がします。

関数内で使用する変数はその関数の引数として渡すべきだと思います。

Comments

[cjapan35]

ありがとうございます。
Sub SEARCH_SUB_FOLDERの中でwbk_newを作成、保存、閉じる作業を行ったのですが、今度は
LastRw2 = wbk_new.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Rowでオブジェクト変数またはwithブロック変数が設定されていませんとのエラーが出てしまいました。

[meg_]

1.このコード実行時にwbk_newは開いていますか？

2.ここでの｢Rows.Count｣はどのセル範囲を指しているのでしょうか？

3.１つ上のコードで｢LastRw1｣は正しく行番号を取れていますか？

[cjapan35]

返信ありがとうございます。
デバッグで見てみると、もともとLastRw1の方では最終行を取得できていたのですが、コード実行時にwbk_newを開いていなかったのがいけなかったみたいです。
その辺修正して、表を二つ並べることができました。

あとは元のブックの表のセル幅を維持して貼り付けたいのですが、貼り付け元でセル幅が均等になってしまいます。
ヘッダーの部分は2つ目の表以降はいらないため、ヘッダー(見出し)だけ先に取り出しておく処理を追加しましたが、ここに書式(セル幅)を維持するための三行目を追加したところ、「1004 range クラスの pastespecial メソッドが失敗しました。」というエラーが出てしまいました。
Sheets(1).Select
Rows("1:5").Copy Destination:=wbk_new.Sheets(1).Cells(1, 1)
wkst.Rows(j).PasteSpecial
たびたび申し訳ありませんが、助言いただけませんでしょうか。

[meg_]

列幅の張り付けは下記で出来ると思います。

PasteSpecial Paste:=xlPasteColumnWidths

[cjapan35]

ありがとうございます。返信遅くなりまして申し訳ありません。
結果的に Sheets(1).Select
Rows("1:5").Copy
With wbk_new.Sheets(1).Cells(1, 1)
.PasteSpecial
.PasteSpecial xlPasteColumnWidths
End With
このコードで見出しだけ抜出すことができました。