こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

PasteSpecial Paste:=xlFormulas

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

投稿日時 - 2003-12-04 17:58:24

QNo.722318

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2003-12-06 16:38:47

お礼

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

投稿日時 - 2003-12-07 00:16:23

ANo.2

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

ANo.1

こんにちは。maruru01です。

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

でしょうか。

投稿日時 - 2003-12-04 18:12:05

補足

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

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:32

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-