2024年6月14日发(作者：)

Excel VBA实例教程 #051：不打

开工作簿取得其他工作簿数据(总6

页)

--本页仅作预览文档封面，使用时请删除本页--

在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工

作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。

1、使用公式如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所

示。

1. Sub CopyData_1()

2. Dim Temp As String

3. Temp = "'" & & "[数据表.xls]Sheet1'!"

4. With ("A1:F22")

5. .FormulaR1C1 = "=" & Temp & "RC"

6. .Value = .Value

7. End With

8. End Sub

代码解析：

CopyData_1过程在工作表中写入公式引用“数据表”中同一位置单元格中的数据。

第3行代码将引用工作簿的路径赋给变量Temp。

第5行代码在作表中写入公式引用数据。

第6行代码将公式转换为数值。

2、使用GetObject函数使用GetObject函数来获取对指定的Excel工作表的引用，如下面的代码所示。

1. Sub CopyData_2()

2. Dim Wb As Workbook

3. Dim Temp As String

4. = False

5. Temp = & "数据表.xls"

6. Set Wb = GetObject(Temp)

7. With (1).Range("A1").CurrentRegion

8. Range("A1").Resize(., . = .Value

9. False

10. End With

11. Set Wb = Nothing

12. = True

2