[[20030918200513]]　『ワークシートコピーでエラー発生』（あやこ）　ページの最後に飛ぶ

『ワークシートコピーでエラー発生』（あやこ）

 メニュー.xls の"MENU"ワークシートのボタンを押下すると、メニュー.xlsの
ブックに、format.xls のシートをコピーを行うマクロを作成したのですが、
３９シート目で必ず下記のエラーが出てしまいます。

 エラーメッセージボックスのデバッグボタンを押すと、
Sheets("Sheet1").Copy after:=Workbooks("メニュー.xls").Sheets(1)
のところにカーソルがあり、背景が黄色くなっています。

 一度にコピーできるシートの数に制限があるのでしょうか？
回避方法等ありましたら教えて下さい。

 ちなみにボタンとformat.xls のシートは５０個あります。

 【エラー】
実行時エラー'1004'
WorksheetクラスのCopyメソッドが失敗しました。

 【ソースコード(各ボタンにシート名部分が異なる関数を作成)】

 '   作成シートコピー処理
    Sheets("MENU").Select
    Workbooks.Open Filename:=Cells(8, 3)
    Windows("format.xls").Activate
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy after:=Workbooks("メニュー.xls").Sheets(1)
    Workbooks("format.xls").Close SaveChanges:=False

 【環境】
Windows2000、Excel2000 SP-3

 >一度にコピーできるシートの数に制限があるのでしょうか？
 >回避方法等ありましたら教えて下さい。
 Excelのメモリには限界があります。
 シートのボリュームによりコピーできる数は異なってきます。
 １度、ブックを閉じて再度実行すれば、対応出来るかと思います。
   (INA)

 回答ありがとうございます。
 やはりメモリが限界なんですね。
 ブックを閉じないで行う方法はないのでしょうか？
 例えば、メモリを解放する方法等ありましたら教えて下さい。
 （あやこ）

 対策としては
 １．ブックを閉じて、開きなおす。（メモリーの解放）
 ２．シートのコピー／削除をたくさん繰り返さない。
 ３．最初に空シートを必要数まとめて作成しておき、内容をコピペする。
 だと思います。

 ひとまず、３の方法では、出来ませんでしょうか？ 
 それで無理なようであれば、１ の方法しか思いつかないです。
 (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20030918200513]] 『ワークシートコピーでエラー発生』（あやこ） ページの最後に飛ぶ

[[20030918200513]]　『ワークシートコピーでエラー発生』（あやこ）　ページの最後に飛ぶ