EXCELのシートを複写するとエラーが発生する理由は

質問

マスターシートをコピーしてデータを書き込むプログラムを作ったのですが、作成するシート枚数が多いとEXCEL.EXEのエラーが発生します。
確認の為、以下のマクロを走らせたところ、１回目は良かったが２回目でエラーが発生します。その理由と対策があれば教えてください。
For I = 1 To 100
Sheets("MasterSheet").Visible = True
Sheets("MasterSheet").Select
Sheets("MasterSheet").Copy Before:=Sheets("MasterSheet")
Sheets("MasterSheet (2)").Select
ActiveSheet.Unprotect
Sheets("MasterSheet (2)").Name = "MST:" + CStr(I)
Sheets("MasterSheet").Visible = False
Next
本当のプログラムがNEXTの前にシートにデータを記入するのですが、TESTではシート作成だけを作りました。

回答No.3

ki-aaa · ベストアンサー

アクティブシートが追加されたシートになるからでは。

Sub aa()
Dim i
Sheets("MasterSheet").Activate
For i = 1 To 10
Sheets("MasterSheet").Select
Sheets("MasterSheet").Copy Before:=Sheets("MasterSheet")
ActiveSheet.Name = "MST_" & i
Sheets("MasterSheet").Activate
Next i
End Sub

これで動きました。

お礼

Activateが正解みたいです
ありがとうございました。

回答No.4

ki-aaa

#3です。

前の回答を取り消します。
Sheets("MasterSheet").Activateはなくても、普通に動きます。

すみませんでした。

回答No.2

papayuka

こんにちは。

２回目のエラーはシート名が同じだからでは？

Sub aa()
Dim ws As Worksheet, cws As Worksheet, j As Integer
　j = 1
　Set ws = Sheets("MasterSheet")
　For i = 1 To 100
　　ws.Copy before:=ws
　　Set cws = ActiveSheet
　　　Do While cws.Name = "MasterSheet (2)"
　　　　 On Error GoTo ER:
　　　　 cws.Name = "MST_" & j
　　　Loop
　　cws.Visible = True
　Next i
　Exit Sub
ER:
　j = j + 1
　Resume Next
End Sub

蛇足ですが、シートが数百枚もあるブックは使いずらいし、不安定要素の原因にもなります。仕様を検討されては？

お礼

ありがとうございます。
２回目と言っても当然ながら前回の作成したシートは削除してから実行していますが、なぜかエラーが発生してしまったのです。

回答No.1

bin-chan

Next の２行前のSheets("MasterSheet (2)").Name = "MST:" + CStr(I) で
エラーになりますね。（実行時エラー1004)

名前に":"を使用してはまずいでしょう。

Sheets("MasterSheet (2)").Name = "MST_" + CStr(I)
にしたら正常に動作しました。
WinME+Office2K

お礼

お礼と補足を間違えて入力してしまいました。
申し訳ない！！
"MST:"は仮の意味で、確かに":"はまずいですよね。
":"なしでもある所でエラーとなります。
メモリの問題なのか？
これは私のパソコンだけではなく、会社では他のPCでも発生しています。

補足

申し訳ない！！
"MST:"は仮の意味で、確かに":"はまずいですよね。
":"なしでもある所でエラーとなります。
メモリの問題なのか？
これは私のパソコンだけではなく、会社では他のPCでも発生しています。