[[20060220145950]]　『コピーして張り付けるだけのマクロでエラーが・・』（R）　ページの最後に飛ぶ

『コピーして張り付けるだけのマクロでエラーが・・』（R）

質問させてください。
シート１からコピーした内容をシート２に貼り付けるという単純なマクロなんですが、エクセル２００２で実行すると
実行時エラー　-2147417848(80010108)'
'Paste’ソリドは失敗しました' warksheet'オブジェクト
というエラーメッセージがでます。

　　Sheets("Sheet1").Select

    Range("a2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
    Sheets("Sheet2").Select
    Range("b3:k8,n3:r8").Select
    Selection.Copy
    Sheets("Sheet1").Select
    ActiveSheet.Paste
となっており
最後の　　ActiveSheet.Paste　　の行が黄色くなって止まってしまいます。
エクセル２００３で実行した場合は問題なく動作します。

これって原因とかってどういったものが考えられるのでしょうか？
どうかよろしくお願いします。

全く同じではありませんが、

http://support.microsoft.com/kb/836031/ja

http://support.microsoft.com/kb/319832/ja

http://support.microsoft.com/kb/830350/ja

などありますね。サービスパックを適用すると改善されるみたい？

 Excel2000ですが、動きましたよ～
 コードを整理してみました。

 Sheets("Sheet2").Range("B3:K8,N3:R8").Copy _
 Destination:=Sheets("Sheet1").Range("A2").End(xlDown).Offset(1)

ご返答ありがとうございます。
サービスパックをダウンロードしても変化はありませんでした。
また上のコードをお借りして実行したところ

実行時エラー　-2147417848(80010108)'
オートメーションエラーです
起動されたオブジェクトはクライアントから切断されました。

というエラーメッセージがでました。

これって対処のしようってあるんでしょうか？
どうぞよろしくお願いします。

 名無しさんのコードでもエラーが出るようだと、Excel自体の破損を疑います。
アプリケーションの自動修復を試してみてもよいかもしれません。
私の場合は、Trueが返ったり、代入する場面で全てオートメーションエラーと
いうワケのわからないモノを経験しましたが、自動修復で回復。
また、似た現象の過去ログも一応。まったく同じとは言い切れませんが。
　
[[20041214110829]] 『マクロ』（かおR） 
[[20040922165138]] 『マクロでコピー・他ブックの操作』(TTC) 
　↑自動修復で改善したケース
[[20040914205145]] 『オートメーションエラー』（PPM） 
（みやほりん）

コメント返信：

[ 一覧(最新更新順) ]

[[20060220145950]] 『コピーして張り付けるだけのマクロでエラーが・・』（R） ページの最後に飛ぶ

[[20060220145950]]　『コピーして張り付けるだけのマクロでエラーが・・』（R）　ページの最後に飛ぶ