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

Excel-VBA实例教程-#051：不打

开工作簿取得其他工作簿数据

在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行代码在作表中写入公式引用数据。