Excel2000/VBA:値と書式のみ貼り付けたい。

質問

Excel2000のVBAで値と書式のみ貼り付けたいのですが、可能でしょうか。２Excel2003なら
Range("A1:Y100").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
でうまくいくのですが、Excel2000だとエラーがでます。「Range クラスの PasteSpecial メソッドは、失敗しました」とでます。これが、Paste:=xlPasteValues
ならちゃんと貼り付けできますのでコピー範囲がセレクトされていない原因のエラーではないようです。

回答No.2

Wendy02 · ベストアンサー

こんにちは。

Excel 2000 の場合は、別々にします。

通常は、
xlPasteFormats を先にしてから、xlPasteValues をするのだったと思います。

お礼

ありがとうございます。
ご指摘にしたがって検索をかけましたら以下のようにすればよいことがわかりました。
With Range("A1:Y100")
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
End With

回答No.1

papayuka

ヘルプによれば Excel2000 の PasteSpecialで Paste に指定出来る定数は以下の通りです。

　# 使用できる定数は、XlPasteType クラスの xlPasteAll、
　# xlPasteFormulas、xlPasteValues、xlPasteFormats、
　# xlPasteNotes、xlPasteAllExceptBorders のいずれかです。
　# 既定値は xlPasteAll です。

xlPasteValuesAndNumberFormats はExcel2000より後のバージョンで拡張されたものと思います。