想让excel文档中某一单元格的数据等于另文档中的数据，VBA代码如何写？

我想让A.xls 中的sheet1 中的 A1 单元格 等于 B.xls 文档中的 sheet2 中的 B3 格的数据。VBA代码如何写？

---

1、完全复制：
workbooks("A.xls").sheets("sheet1").range("A1").copy workbooks("B.xls").sheets("sheet2").range("B3")
2、传递数值：
workbooks("B.xls").sheets("sheet2").range("B3").value=workbooks("A.xls"闹没羡).sheets("察销sheet1").range("A1").value
3、传递公液拍式（含数值）
workbooks("B.xls").sheets("sheet2").range("B3").formula=workbooks("A.xls").sheets("sheet1").range("A1").formula

如果要用VBA在A1中写公式链接B3的值，大可不必用VBA。一定要的话，分两种情况：
1、B文件打开状态：
workbooks("A.xls").sheets("sheet1").range("A1").formula="[B.xls]sheet2'!B3"
2、B文件关闭状态：
先取得B文件所在路径，假设为X:\
workbooks("A.xls").sheets("sheet1").range("A1").formula="'X:\[B.xls]sheet2'!B3"

---