エクセルVBAのメソッドSaveasについて

質問

Dell Dimention8300
HDD 80GB　（空き領域　17.4GB）
Pentium4 2.6GHz
512MB RAM

Windows XP Pro/エクセル2002使用です。

エクセルVBAで下記のようファイルを追加するようにしました。

ブックA（.xls)　147KB
ブックB（.xls)　18KB
ブックC（.xls)　7,955KB

ブックAにマクロを記述

ブックBから新しいファイルをつくる個数を取得
略
for i = 1 to (新しく作る個数）
　Workbooks（"ファイルC").Activate
　ActiveWorkbook.SaveAs FileName:="C:\・・・・・・（新ファイル名）"
next
略

ファイルCをメソッドSaveAsにて新しいファイルを作っていくのですが、その個数が数十個程度あれば問題ないのですが、100個を越えると非常に遅くなるか、途中でプログラムの応答がなくなります。

メソッドSaveAsが、CPUかメモリを浪費しているのかと思うのですが、関係あるでしょうか？

よろしくお願いします。

回答No.1

papayuka · ベストアンサー

ファイルC は開いただけで何も変更せずに別名でコピーしているだけ？

であれば、ファイルC は開かずに FileCopy を使うとか、、、

FileCopy "C:\・・\ファイルC.xls", "C:\・・\（新ファイル名）"

50KB程度のファイルだと、500個コピーしても数秒でしたよ。

お礼

papayuka様　いつもすいません。ありがとうございます。助かりました。Filecopyの意味がよくわかりました！！

8MB　130個でJust１分でした。
むっちゃ嬉しいです。

これからも何卒よろしくお願いします。
本当にありがとうございました！！