excel VBA中怎样引用外部单元格

要引用非本工作簿中的单元格方法如下：
1、打开要引用数据的工作簿代码如下：
Workbooks.Open ("E:\供电所管理标准\负荷测试记录.xls")
括号中的是工作簿的路径
2、引用数据代码为：
workbooks("引用数据的工作簿名称").worksheets("工作表名称").cells(单元格地址)=workbooks("要引用数据的工作簿名称").worksheets("工作表名称").cells(单元格地址)
3、关闭引用数据的工作簿
workbooks("要引用数据的工作簿名称").colose

Sub test1()
Dim fPath, fName, fl As String
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Worksheets("sheet1")
fPath = Application.ThisWorkbook.Path & "\"
fName = "Test2.xlsm"
Workbooks.Open fPath & fName
ws.[A1] = Sheet1.[R51]
Workbooks(fName).Close savechanges:=False
End Sub

fPath和fName都换成你的目标文件所在的目录和名称就可以了

你可以写1句打开这个文件把这个单元格内容提取出来再写1句关闭这个文件。

学习学习