A文档(excel)中的某一行某一列如何调用B文档(excel)的某一行某一列中的内容?

[Best999]

有二个excel文档，分别是A.xls和B.xls文档，假设a.xls中的第一行第一列调用b.xls中的第一行第一列的内容，如果直接调用的话，我知道很简单，但我想在b.xls中做一个按钮，按下这个按钮后，b.xls中的第一行第一列的内容就到a.xls中的第一行第一列中去了，意思是这样的，不知这个按钮的代码如何编写？初次接触VBA，请多多指教谢谢！！！

[Arqui]

如果在不打开b.xls文件的情况下，方式如下可直接引用：
ActiveSheet.Cells(1, 1).Formula = "='F:\csdn\[b.xls]sheet1'!$A$1"

[ChinaOBS]

用copy就可以：
Private Sub CommandButton1_Click()
Range("A:A").Copy Workbooks("a.xls").Sheets("sheet1").Range("a1")
End Sub