如何使用VBA引用外部指定excel单元格

sub 获取外部数据（）

Dim Wb1 As Workbook

Dim Wb2 As Workbook

Dim Temp As String

Set Wb1 = ThisWorkbook

Temp = ThisWorkbook.path & "\111.xlsx" '外部文件路径

Set Wb2 = GetObject(Temp) '后台打开外部文件

Wb1.Sheets("Sheet1").range("A1") = Wb2.Sheets("Sheet1").range("A1") '引用

Wb2.Close False '关闭外部文件

End Sub

在vba的编程中，引用是通过“工具”-〉“引用”来添加的，但若OFFICE版本不同，VBAProject的版本也不相同，代码在引用VBAProject时，会造成引用错误。 比如同是ADODB控件，就有Microsoft ActiveX Data Objects 2.1 Library 到Microsoft ActiveX Data Objects 2.8 Library 多个版本。 这样造成的后果是，在OFFICE2003上编写的代码，在OFFICE2000上可能就不能运行。 接下来的几篇文章中，对这个问题有所涉及，以供参考。

要引用非本工作簿中的单元格方法如下：

1、打开要引用数据的工作簿代码如下：

Workbooks.Open ("E:\供电所管理标准\负荷测试记录.xls")

括号中的是工作簿的路径

2、引用数据代码为：

workbooks("引用数据的工作簿名称").worksheets("工作表名称").cells(单元格地址)=workbooks("要引用数据的工作簿名称").worksheets("工作表名称").cells(单元格地址)

3、关闭引用数据的工作簿

workbooks("要引用数据的工作簿名称").colose

---