VBA读取指定工作簿里的一个sheet到我的excel file

用getobject方法可以隐藏打开的工作簿对象，实现看上去没有打开的过程
sub test()
dim wb as workbook
dim sht as worksheet
set wb=getobject("C:\A.xls")
set sht=wb.worksheets(1)
sht.Cells.Copy ThisWorkbook.Worksheets(1).[A1]
wb.close
set wb=getobject("C:\B.xls")
set sht=wb.worksheets(2)
sht.Cells.Copy ThisWorkbook.Worksheets(2).[A1]
wb.close
end sub

懂点vba的看了下面的步骤就懂了。
1、Dim Wb As Workbook
2、 Dim Temp As String
3、 Temp = ThisWorkbook.Path & "\xxxx.xls"

4、Set Wb = GetObject(Temp)
5、 Wb.Windows(1).Visible = False
6、Wb.Sheets(1).cells(1,1)="xxxxx"
7、Wb.Windows(1).Visible = True
8、Wb.SaveAs

Sub AB()
Workbooks.Open "C:\A.xls"
ActiveWorkbook.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[A1]
ActiveWorkbook.Close False

Workbooks.Open "C:\B.xls"
ActiveWorkbook.Worksheets(2).Cells.Copy ThisWorkbook.Worksheets(2).[A1]
ActiveWorkbook.Close False

End Sub

Sub AB()
Dim wb as Workbook

set wb = getObject(file path)

TODO

wb.close

set wb=nothing

End Sub