
EXCEL VBAでシートをコピーするマクロを作成しているのですが、【10】にて時々エラーが発生してしまいます。100シート分ぐらいをコピーしたいのですが、途中で30シートぐらいの所で止まってしまいます。
(シートが10前後だと問題なく処理が終ります)
止まってしまうシートはまちまちなので、
シート名称が問題だとは考えにくいです。
ちなみに【8】でのsheets_nameは取得できてます。
前後に何かを入れることにより解決するのか、
ソース本体をいじれば解決するのか、
詳しい方、何卒、解決方法を
ご指導いただけますよう宜しくお願いします。
【1】 '取得した配列の数だけループを行う。
【2】 For i = LBound(test) To 配列数 - 1
【3】
【4】 列番号 = Mid(test(i), 4, 3)
【5】 Debug.Print "test(" & i; ") : " & test(i)
【6】
【7】 'FORMATシートをコピーし、その名称を変数名にする
【8】 sheets_name = Worksheets("実績").Cells(18, 列番号).Value
【9】
【10】 Worksheets("FORMAT").Copy After:=Sheets("FORMAT")
【11】
【12】 ActiveSheet.Name = (sheets_name)
【13】 Cells(4, 3) = (sheets_name)
No.3ベストアンサー
- 回答日時:
コードとしては下記と等価だと思います。
空のシートでやってみると、スムーズにうまく行きました。
下記のシートSheet1のデータ・関数式他メモリの使用状況によるのではないでしょうか。
コピーの終了を見届けて、次のループに入ればよいのかもしれませんが、可能か、どうすればよいか方法が私にはわかりません。
Sub test02()
For i = 1 To 100
sheets_name = i
Worksheets("Sheet1").Copy After:=Sheets("sheet1")
ActiveSheet.Name = sheets_name
Next i
End Sub
エクセル2002でXP標準メモリ容量程度です。
No.4
- 回答日時:
こんばんは。
シートコピーは、無限にできるわけでもないので、
>途中で30シートぐらいの所で止まってしまいます。
このぐらいが、常識的な限度だと私は思います。ワークシートの内容量にもよりますが、この常識的な量は超えないほうが安全だと思います。実験的には、何百シートができるだとしても、私は、量が増える可能性がある場合は、ブックで分散して、それを参照設定でつないでいます。
No.2
- 回答日時:
この質問は非常に参考になりました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1685998
このサイトでの事前の調べが足りなかったです(反省)
ありがとうございました。
解決に繋がりそうです。
No.1
- 回答日時:
こんにちは。
KenKen_SP です。自信なしですが、、、
「たまにうまくいかない」ということですね?
連続コピーで Excel がビジーになり、処理が追いつかないのではないか
と推測します。適度にウェイトしてみてはどうでしょうか?
標準モジュールの先頭に以下の API 関数を貼り付けます。
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
それから、ご提示のコードを次を追加します。
Worksheets("FORMAT").Copy After:=Sheets("FORMAT")
Sleep 500 '<-- 追加:500ミリ秒のウェイト(任意)
DoEvents '<-- 追加:制御を一瞬 OS に渡します
KenKen_SPさん、
ありがとうございました。
早速、試してみます。
ウェイトをどうさせたらいいのかな~?
と思っていたのでズバリでした。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
エクセルでコピーができなくなる
Visual Basic(VBA)
-
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
-
4
エクセル マクロ実行時エラー’1004’
Excel(エクセル)
-
5
worksheetクラスのcopyメソッドが失敗しました。
その他(Microsoft Office)
-
6
マクロでのシートコピー数制限?
Excel(エクセル)
-
7
VBAマクロ 実行時エラーが出たり出なかったり
Excel(エクセル)
-
8
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
13
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
14
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
15
vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
-
16
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
17
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
18
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
19
別シートのマクロを実行する方法
Excel(エクセル)
-
20
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの行をコピーして貼り付け...
-
Excel 関数を使ってデータと一...
-
エクセルの選択範囲以外を削除...
-
EXCELのVBAでシートコピーをし...
-
【エクセル】プルダウン設定の...
-
EXCELで別のブックから式をコピ...
-
エクセルの1シートの内容を複...
-
【VBA】コピー&複数個所のペー...
-
エクセルのページをシートごと...
-
Excel Selectは使わない? VBA
-
ワークシートの移動またはコピ...
-
エクセルで、開くのに時間のか...
-
エクセルでシートを「移動また...
-
PDFファイルをコピーしてエクセ...
-
エクセルVBAですが教えてくださ...
-
EXCELのファイル容量について
-
シートのコピーでリンク先をコ...
-
シートをコピーするとテキスト...
-
CSVファイルについて質問です。
-
Excel シートのコピーの際、ペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの行をコピーして貼り付け...
-
Excel 関数を使ってデータと一...
-
エクセルの選択範囲以外を削除...
-
EXCELのVBAでシートコピーをし...
-
EXCELで別のブックから式をコピ...
-
【エクセル】プルダウン設定の...
-
エクセルでシートを「移動また...
-
ExcelVBAで、ユーザーフォーム...
-
Excel 数式の保護をしたセルを...
-
エクセルの1シートの内容を複...
-
EXCEL2007でシートをコピーする...
-
PDFファイルをコピーしてエクセ...
-
CSVファイルについて質問です。
-
ページの設定を別シートにコピ...
-
エクセルシートを別のエクセル...
-
Excel シートのコピーの際、ペ...
-
【VBA】コピー&複数個所のペー...
-
VBA シートをコピー後、ボタン...
-
EXCEL VBA シートをコピーする...
-
エクセルVBA 1行飛ばしで転記す...
おすすめ情報