用vb打开了两个excel文档（用两个不同的按钮打开）
1、
  Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
  Set xlBook = xlApp.Workbooks.Open("D:\test1.xls")
  Set xlSheet = xlBook.Worksheets("sheet1")
  xlApp.Visible = True

2、
Set xlApp1 = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook1 = xlApp1.Workbooks.Open("D:\test2.xls")
Set xlSheet1 = xlBook1.Worksheets("sheet1")
xlApp1.Visible = True


请问怎么在这两个excel中实现数据交互，比如说test1中的数据输入到test2中


补充：xlBook1.Worksheets("sheet1").cells(1,1)= xlBook.Worksheets("sheet1").cells(1,1)

不成功，非常不解