VBAのCopyメソッドが中断する

質問

ご存知のかたがいらっしゃったら教えてください。
VBAで、
「INPUTファイルのシートをコピーしてOUTPUTファイルを作成し，シートの内容を編集して保存する」
というマクロを作成しております。
シートコピーをCopyメソッドを使用して行っているのですが、
何度か、Copyメソッドの途中で処理が中断されてしまう現象がおこりました。
現在は再現していないので、原因の追究ができずに困っております。

職場の同僚に聞いてみたところ、
「以前にそんな現象がおこって苦労したような気がするが、はっきり覚えていない」
とのこと。・゜゜・(>_<)・゜゜・。
マイクロソフトのサポートページを探してみましたが見つけることができませんでした。。。
どなたか、この現象の原因をご存知ないでしょうか？

また回避策として、
「Copyメソッドを使用せず、セル全体を選択し、コピー→ペーストで新しいブックに貼り付ける」
という方法があるかと考えているのですが、この方法だと
コピー元のファイルに設定しているセル名がコピー先に引き継がれません。
セル名を引き継ぎつつコピーするということは可能なのでしょうか？

バージョンは、Excel97,officeXPです。

漠然とした質問で大変申し訳ありませんが、よろしくお願いいたします。

回答No.1

papayuka · ベストアンサー

経験則なので当てはまるか不明ですが、、

Excel97だと下記のようにシートにActiveXコントロールのCommandButtonを置いてそこから実行している場合失敗します。

Private Sub CommandButton1_Click()
　Worksheets(1).Copy
End Sub

ヘルプの「シートで ActiveX コントロールを使用する」によれば「ActiveX コントロールをアクティブにすると、使用不能になる Visual Basic のメソッドやプロパティがあります。たとえば、Sort メソッドは、コントロールをアクティブにすると使用できません。」とあり、回避策として下記のようにコントロールからフォーカスを奪ってやると成功します。

Private Sub CommandButton1_Click()
　ActiveCell.Activate
　Worksheets(1).Copy
End Sub

また、Excel97だと下記のようにシートを最初のコピー元からではなく、コピーからコピーを作るやり方をして同一ブックに納めていくとそのうち失敗します。

Sub Test()　'失敗する
　For i = 0 To 50
　　　ActiveSheet.Copy after:=ActiveSheet
　Next i
End Sub

これはワークシートのオブジェクト名が「Sheet1111111111」のようになってしまうのが原因で絶えず最初のシートからコピーをすると回避出来ます。

Sub Test1()　'成功する
　For i = 0 To 50
　　　Worksheets(1).Copy after:=ActiveSheet
　Next i
End Sub

参考になれば。