用vbs把excel的一个sheet1里的数据原样复制到另一个excel中的sheet1中 求vbs脚本

[characterGARRICK]

Sub WORK()
Set book_A = ThisWorkbook.Sheets("1.P2P统计") '设置要复制的工作表
Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\AA.xls") '打开同目录下要复制到的工作簿
Set sh = xlbook.Sheets("Sheet2") '设置要复制到的工作表
Windows("1.P2P统计").Activate '复制sheet1中的内容
book_A.Select
Cells.Select
Selection.Copy
Windows("AA.xls").Activate '将内容粘贴到目标工作表中
sh.Select
ActiveSheet.Paste
End Sub

我这样做一直都是执行不了 求各位大佬赐个脚本
把excel的sheet1数据原样复制到另一个excel的sheet1脚本

[characterGARRICK]

找到了 解决了