WorkbookのCopyについて

質問

Workbookのコピーについて教えてください。
下記のマクロにセル内の数式もコピーしたいのですが、出来ないで困ってます。
値と数式をコピーする、マクロを入れると指定した範囲にコピーされません。

Sub CopyWorkbookToWorkbook()

Windows("sheet2.xls").Activate
Workbooks.Open Filename:="D:\book1.xls"
Workbooks("book1.xls").Worksheets("sheet1").Range("A6:k1000").Copy
Workbooks("book2.xls").Worksheets("sheet1").Range("A6").PasteSpecial　
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False,Transpose:=False　　　　　　　　　
Workbooks("book1.xls").Close

End Sub

よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞値と数式をコピーする

数式を張り付けるを一回するだけで、一緒に値も張り付きます。

sub macro1()
　Workbooks.Open Filename:="D:\book1.xls"
　Workbooks("book1.xls").Worksheets("sheet1").Range("A6:k1000").Copy
　workbooks("book2.xls").worksheets("Sheet1").range("A6").pastespecial paste:=xlpasteformulas
　workbooks("book1.xls").close false
end sub

お礼

おはようございます。回答有難うございます。書式のコピーできるようになりました。

補足

書式(数式）コピーは出来るようになったんですが、数式位置のの値が空白なので...。修正してみます。