VBAのループ処理がうまく動かない

Question

前提・実現したいこと

シートの内容をまるごとコピーし、別のブックを新規作成して、コピーした内容を張り付けて保存するエクセルVBAを作っています。

配列の第一要素目である、block3.xlsxは作成できるのですが、
次のblock4は、
Worksheets(Data(i)).Copy
の部分で、下記のエラーが発生してしまい、block4.xlsxの作成はできません。

どうしたら、問題なくループが回り、
block3~block7.xlsx、全てのブックを作成できるようになるでしょうか？

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

インデックスが有効範囲ではありません。

該当のソースコード

Sub correctに向けたコピーtest()
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    
    Dim Data(4)
    
    Data(1) = "block3"
    Data(2) = "block4"
    Data(3) = "block6"
    Data(4) = "block7"
    
    Dim i As Integer
    For i = 1 To 4
        MsgBox i
        MsgBox Data(i)
        Worksheets(Data(i)).Copy
        Name = "\" & Data(i) & ".xlsx"
        'ppath = ThisWorkbook.Path
        ppath = "C:\Users\×××\OneDrive\ドキュメント\大学院\修士論文\facial expression\実験データ0605\0618\3"
        MsgBox ppath
        a = fso.BuildPath(ppath, Name)
        ActiveWorkbook.SaveAs Filename:=a
    Next

End Sub

試したこと

ループ２回目の、Data(i)には、きちんとblock4が入っています。
Worksheets(Data(i)).Copyの、書き方が何かしら間違っているのだと思いますが、
どこが違うのかが分かりません。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ThisWorkbook.Worksheets(Data(i)).Copy

ブック名をつけずにWorksheets(Data(i)).Copyとだけ書くと、
その時のActiveWorkbookのワークシートだと判断されます。
ループの１回目で新しいWorkbookができ、それがActiveWorkbookになるので、
２回目のときに、その新しいブックの中のワークシートを探しに行きますが、
当然そこには無いのでエラーになる、という理屈だと思われます。

Comments

[YYJP]

ご指摘受けて修正したら動きました。ありがとうございました！

Answer 2

インデックスが有効範囲ではありません。

これは配列の添え字インデックス番号が範囲外であることを示しています。

Dim Data(4)

これは要素数が４つの配列を定義しています。

配列のインデックス番号は0から始まるので要素数４であれば指定できるのは0~3となります。
Data(4) は指定できる範囲外なのでエラーがでています。

~~ ※エラーについての対応が目に付いたので回答しましたが、block3.xlsxだけできる説明にはならない、問題根本解決には至らないと思います。根本原因がわかれば追記します。~~

---

（編集）
回答内容に誤りがありました。本来削除依頼を出すべきですが、ご指摘のコメントを頂いておりますので、取り消し線で取り消しを行いました。
大変申し訳ございません。

Comments

[hatena19]

Dim Data(4) とした場合、
Dim Data(0 to 4) という意味になりますので、0 ~ 4 まで指定できますね(要素数5)。
ただし、モジュールの先頭で Option Base 1 を宣言しておくと
Dim Data(1 to 4) という意味になります。
今回のコードなら、Dim Data(1 to 4) と宣言しておくと紛れないと思います。

エラー原因は jinojiさんの回答通りだと思います。

[Crimson_Tide]

ご指摘誠にありがとうございます。
私の認識の誤りがございました。また確認のために参考にしたサイトの内容にも誤りがあったようです。
コメントを頂きましたので、回答は削除ではなく取り消し線を付与することで対応いたしました。

YYJP様、誤った回答をしてしまいました。大変申し訳ございません。

[YYJP]

VBAも配列の要素は0から始まるんですね。とても勉強になりました。
ありがとうございました！