怎么用vbs把一个excel文件中的工作表复制到另一个excel文件中

Sub WORK()

Set book_A = ThisWorkbook.Sheets("Sheet1") '设置要复制的工作表
Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\02.xls") '打开同目录下要复制到的工作簿
Set sh = xlbook.Sheets("Sheet2") '设置要复制到的工作表

Windows(ThisWorkbook.Name).Activate '复制sheet1中的内容
book_A.Select
Cells.Select
Selection.Copy

Windows("02.xls").Activate '将内容粘贴到目标工作表中
sh.Select
ActiveSheet.Paste

End Sub