将指定Excel文件的指定sheets复制到另一个Excel文件

Sub test()

' 定义日期
Dim time, tablename As String
time = Format(Date, "yyyy-mm-dd")






Dim souf$, desf$

souf1 = "C:\Users\xieyabo\2.xlsx"
desf1 = "C:\Users\xieyabo\Desktop\2.xlsx"


souf2 = "C:\Users\xieyabo\3.xlsx"
desf2 = "C:\Users\xieyabo\Desktop\3.xlsx"

FileCopy souf1, desf1
FileCopy souf2, desf2

Dim wb As Workbook


Set wb = Workbooks.Open("C:\Users\xieyabo\Desktop\2.xlsx")


    arr = Workbooks("2.xlsx").Sheets("c").[a1:b2]
          Workbooks("2019-02-26测试表格.xlsx").Sheets("a").[a1:a2] = arr
          

Set wb = Workbooks.Open("C:\Users\xieyabo\Desktop\3.xlsx")


    arr = Workbooks("3.xlsx").Sheets("3").[a1:b2]
          Workbooks("2019-02-26测试表格.xlsx").Sheets("b").[a1:a2] = arr


' 关闭 并 删除 要被复制的文件
Workbooks("2.xlsx").Close SaveChanges:=True
Workbooks("3.xlsx").Close SaveChanges:=True


Kill "C:\Users\xieyabo\Desktop\2.xlsx"
Kill "C:\Users\xieyabo\Desktop\3.xlsx"





End Sub