EXCEL VBAで、PasteSpecialと Destinationの組み合わせ方法？

ここで教えていただいたマクロで

ActiveSheet.Paste Destination:=Workbooks(\"book1.xls\").Worksheets(\"Sheet1\").Range(\"A1\")

のペースト部分を書式を除きたいので

PasteSpecial Paste:=xlFormulas

でやりたいのですが、どう組み合わせたらいいのかわかりませんでした。
おしえていただけませんでしょうか？

No.2 ベストアンサー 回答者： moon00 回答日時： 2003/12/06 16:38

moooonさん、こんにちは。

結論から言うと、
ActiveSheet.Paste Destinationと、PasteSpecialの組合せはできないようです。
（下記URL参照）
なので、前回ご紹介したマクロの
Worksheets("AAA").UsedRange.Copy
の後を
ActiveSheet.Paste Destination:=Workbooks(\"book1.xls\").Worksheets(\"Sheet1\").Range(\"A1\")
ではなく、
maruru01さんのご回答のように書き換える必要があると思います。
Destinationの場合は、クリップボードを経由せずに直接
コピーペーストできる、というものですが、
書式を除く等の作業が伴うと、クリップボードを経由させる必要があるようです。

参考URL：http://www.asahi-net.or.jp/~zn3y-ngi/YNxv998.html

この回答へのお礼

あ、moon00さん、先日はありがとうございました！
今回もまたありがとうございます。
そういうことでしたか。やっとわかりました。

お礼日時：2003/12/07 00:16

No.1 回答者： maruru01 回答日時： 2003/12/04 18:12

こんにちは。

maruru01です。

Workbooks("book1.xls").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteFormulas

でしょうか。

この回答への補足

さっそくありがとうございます。

Workbooks("book1.xls").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteFormulas なら、わたしもわかるのですが、ActiveSheet.Paste Destination:=Workbooks("book1.xls").Worksheets("Sheet1").Range("A1") という書き方で xlPasteFormulas または xlPasteValues を使う方法はないのでしょうか？

補足日時：2003/12/05 10:50