マクロで5個のBOOKのデータをBOOK1に転記

質問

エクセルマクロで対話型でBOOK2～6の5個のデータを
BOOK1のシート1に順番で転記したいです。

BOOK2～BOOK6は作業者にファイルを選択させたいです。
BOOK2～BOOK6は作業の都度行数がBOOKごとに変わります。
（５００～５，０００行でばらつきます）

流れとしては、

１．BOOK1を開いてマクロを軌道
２．エクセルのファイルを開くウィンドーが出る
３．ファイルを選択させる（例：マイネットワーク内のBOOK2を選択）
４．ウィンドーの開くをクリックする
５．転記1回目
　　指定したファイルが開いてデータが
　　BOOK1のシート１に転記される
　　この１回目は1行目からデータがある最終行まで。
　　その後BOOK2は閉じられる
６．メッセージボックスで「転記完了」と表示
７．メッセージボックスの「ＯＫ」をクリックすると
　　エクセルのファイルを開くウィンドーが出る
８．ファイルを選択させる（例：マイネットワーク内のBOOK3を選択）
９．ウィンドーの開くをクリックする
10．転記2回目
　　指定したファイルが開いてデータの中の２行目～最終行までを
　　BOOK1のシート１の最終行の次の行から転記を行う。
　　（NO.5のBOOK2が1,000行の場合1,001行目から
　　　BOOK3のデータ2行目以降が転記される）
　　その後BOOK3は閉じられる
11．この作業を計５回行う
　　（転記３～５回目も転記するデータは2行目～最終行）
13．メッセージボックスで「５個のBOOKの転記が終了」と表示
14．メッセージボックスの「ＯＫ」をクリックすると
　　Call　編集
　　でSub　編集　というプロシージャーが起動する

Sub　編集は出来上がってます。
（BOOK1のシート１を編集します。）

NO.1～NO.14のマクロ記述を教えてください。
自分で作成した記述では全然駄目でした。
よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

おや、ガンダム少年じゃないですか。
またお会いしましたね。

> 指定したファイルが開いてデータが
> BOOK1のシート１に転記される

指定したファイルのどのシート？
とりあえず開いたときアクティブになってるシートでみますけど、違ったら修正してください。

> この１回目は1行目からデータがある最終行まで。

行はわかったけど、どの列で判定すればいいのかな？
とりあえずA列でみますけど、違ったら修正してください。

こんな感じかな？

Sub GetBook()
　　Dim ans As Boolean
　　Static myCnt As Integer
　　If myCnt >= 5 Then
　　　　MsgBox "５個のBOOKの転記が終了してます。"
　　　　Exit Sub
　　End If
　　ans = Application.Dialogs(xlDialogOpen).Show
　　If ans Then
　　　　myCnt = myCnt + 1
　　　　Call GetData(ActiveWorkbook, myCnt)
　　End If
End Sub

Sub GetData(ByRef wb As Object, ByVal myCnt As Integer)
　　Dim x As Long
　　MsgBox wb.Name & "からデータを取得します。", vbInformation, myCnt & "回目ですね。"
　　With wb.ActiveSheet
　　　　x = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　If myCnt = 1 Then
　　　　　　.Rows("1:" & x).Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
　　　　Else
　　　　　　.Rows("2:" & x).Copy ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1)
　　　　End If
　　End With
　　wb.Close (False)
　　MsgBox myCnt & "回目の転記が完了"
　　If myCnt < 5 Then
　　　　Call GetBook
　　Else
　　　　MsgBox "５個のBOOKの転記が終了しました。"
　　　　Call 編集
　　End If
End Sub

お礼

完璧に動作しました。

大変助かりました。

どうもありがとうございます。

補足

お久しぶりです。

>指定したファイルのどのシート？
>とりあえず開いたときアクティブになってるシートでみますけど、違ったら修正してください

選択さセルファイルは基幹システムから吐き出したファイルで、
シートは１個しか存在しません。
またシート名は吐き出すたびにシステムがシート名を変えてしまいます。
シート名は指定できません。
アクティブになっているシートで問題ありません。

＞行はわかったけど、どの列で判定すればいいのかな？
＞とりあえずA列でみますけど、違ったら修正してください。

Ａ列からＱ列まであり、すべての行は埋まっています。
A列で問題ありません。

BOOK1の
シート２→BOOK2
シート３→BOOK3
シート４→BOOK4
シート５→BOOK5
シート６→BOOK6
のデータを貼り付けて
その後
シート1にシート２～６の順で貼り付けます。
ファイルサイズは１５Ｍです。
よって、今回質問しました。
（最初からシート１に転記すれば楽で軽いので）

別件の高速化も回答してくださいましたね。
ありがとうございます。
あれは本件で、できあがったシート１の編集なのです。
実はまだ高速化しないのです。
画面を見ていると明らかにあのＬＯＯＰ文の所で一番時間が
かかっている
（Ｒ列が選択された状態で止まっている）
のですが、記述ではシート１しか対象にしていませんし
シート１内で編集しているので無関係だと思うのですが。
あのＬＯＯＰ文が原因ではなく、どうもこの
１５Ｍというサイズが原因のような気が。？？？？

とりあえず、教えていただいた内容でうまくいっています。
取り込み後、約20,000行あるので今確認中です。

この教えていただいた物だと当然シート１に２０，０００行あるだけなので
サイズは５Ｍくらいです。
ためしに自分のＬＯＯＰ分でも秒速でした。

因果関係は分かりませんが、
今回教えていただいた物がうまく出来れば
あちらも解決してしまうかも知れません。

ありがとうございます。