在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。
1、使用公式
如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所示。
1.Sub CopyData_1()
2.    Dim Temp As String
3.    Temp = "'" & ThisWorkbook.Path & "\[数据表.xls]Sheet1'!"
4.    With Sheet1.Range("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.    Application.ScreenUpdating = False
5.    Temp = ThisWorkbook.Path & "\数据表.xls"
6.    Set Wb = GetObject(Temp)
7.        With Wb.Sheets(1).Range("A1").CurrentRegion
8.            Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
9.            Wb.Close False
10.        End With
11.    Set Wb = Nothing
12.    Application.ScreenUpdating = True
13.End Sub
代码解析：
CopyData_2过程使用GetObject函数来获取“数据表”工作簿中的数据。
第4行代码关闭屏幕更新加快运行速度。
第5行代码将引用工作簿的路径赋给变量Temp。
第6行代码使用Set语句将GetObject函数返回的对象赋给对象变量Wb。
GetObject函数返回文件中的ActiveX对象的引用，语法如下：
GetObject([pathname] [, class])
参数pathname是可选的，包含待检索对象的文件的全路径和名称。如果省略，则class参数是必需的。
参数class是可选的，代表该对象的类的字符串。
Class参数的格式为appname.objecttype，语法的各个部分如表格1所示。
表格1 Class参数语法的各个部分
第7行到第10行代码，当GetObject函数指定的对象被激活之后，就可以在代码中使用对象变量Wb来访问这个对象的属性和方法。
其中第7、8行代码将“数据表”工作簿中的第1张工作表已使用区域的数据赋给本工作表的单元格，第9行代码关闭“数据表”工作簿，使用GetObject函数返回对象的引用时，虽然在窗口中看不到对象的实例，但实际上是打开的，所以需用Close语句将其关闭。
第12行代码开启屏幕更新。
3、隐藏Application对象
通过隐藏Application对象来模拟不打开工作簿取数，如下面的代码所示。
1.Sub CopyData_3()
2.    Dim myApp As New Application
3.    Dim Sh As Worksheet
4.    Dim Temp As String
5.    Temp = ThisWorkbook.Path & "\数据表.xls"
6.    myApp.Visible = False
7.
8.    With Sh.Range("A1").CurrentRegion
9.        Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
10.    End With
11.    myApp.Quit
12.    Set Sh = Nothing
13.    Set myApp = Nothing
14.End Sub
代码解析：
CopyData_3过程隐藏Application对象来模拟不打开工作簿取数。
第2行代码使用New关键字隐式地创建一个Application对象。
第6行代码将新创建的Application对象的Visible属性设置为False，使之隐藏。
第7行代码使用Open方法打开“数据表”工作簿（关于Open方法请参阅技巧42 ，因为工作簿是使用新创建的、隐藏的Application对象打开的，所以在窗口中是不可视的。
第8行到第10行代码将“数据表”工作簿中的第1张工作表已使用区域的数据赋给本工作表的单元格。
第11行代码使用Quit方法退出新打开的Excel程序。
4、使用ExecuteExcel4Macro方法
使用ExecuteExcel4Macro方法可以做到不打开工作簿的情况下获取其他工作薄中指定工作表的数据，如下面的代码所示。
1.Sub CopyData_4()
2.    Dim RCount As Long
3.    Dim CCount As Long
resize函数vba
4.    Dim Temp As String
5.    Dim Temp1 As String
6.    Dim Temp2 As String
7.    Dim Temp3 As String
8.    Dim R As Long
9.    Dim C As Long
10.    Dim arr() As Variant
11.    Temp = "'" & ThisWorkbook.Path & "\[数据表.xls]Sheet1'!"
12.    Temp1 = Temp & Rows(1).Address(, , xlR1C1)
13.    Temp1 = "Counta(" & Temp1 & ")"
14.    CCount = Application.ExecuteExcel4Macro(Temp1)
15.    Temp2 = Temp & Columns("A").Address(, , xlR1C1)
16.    Temp2 = "Counta(" & Temp2 & ")"
17.    RCount = Application.ExecuteExcel4Macro(Temp2)
18.    ReDim arr(1 To RCount, 1 To CCount)
19.    For R = 1 To RCount
20.        For C = 1 To CCount
21.            Temp3 = Temp & Cells(R, C).Address(, , xlR1C1)
22.            arr(R, C) = Application.ExecuteExcel4Macro(Temp3)
23.        Next
24.    Next
25.    Range("A1").Resize(RCount, CCount).Value = arr
26.End Sub
代码解析：
CopyData_4过程使用ExecuteExcel4Macro方法获取“数据表”工作薄中指定工作表的数据。
第14、16行代码使用ExecuteExcel4Macro方法执行Counta函数取得“数据表”工作薄中指定工作表的行数和列数合计。ExecuteExcel4Macro方法执行一个Microsoft Excel 4.0宏函数，然后返回此函数的结果，语法如下：
expression.ExecuteExcel4Macro(String)
参数expression是可选的，返回一个Application对象。
参数String是必需的，一个不带等号的Microsoft Excel 4.0宏语言函数，所有引用必须是像R1C1这样的字符串。
因为Microsoft Excel 4.0 宏不在当前工作簿或工作表的环境中求值，所有的引用都是外部引用，所以无需打开引用工作簿但是需要明确指定工作簿名称。
第18行代码使用ReDim语句为动态数组arr重新分配存储空间。
第19行到第24行代码循环取值，将“数据表”工作薄中指定工作表的数据赋给动态数组arr。
第25行代码将动态数组arr的值赋给工作表的单元格。
5、使用SQL连接
使用SQL建立与工作簿的连接，查询数据记录后复制到当前工作表中，如下面的代码所示。
1.Sub CopyData_5()
2.    Dim Sql As String
3.    Dim j As Integer
4.    Dim R As Integer
5.    Dim Cnn As ADODB.Connection
6.    Dim rs As ADODB.Recordset
7.    With Sheet5
8.        .Cells.Clear
9.        Set Cnn = New ADODB.Connection
10.        With Cnn
11.
12.            .ConnectionString = "Extended Properties=Excel 8.0;" _
13.                & "Data Source=" & ThisWorkbook.Path & "\数据表"
14.            .Open
15.        End With
16.        Set rs = New ADODB.Recordset
17.        Sql = "select * from [Sheet1$]"
18.        rs.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
19.
20.                .Cells(1, j + 1) = rs.Fields(j).Name
21.            Next
22.        R = .Range("A65536").End(xlUp).Row
23.        .Range("A" & R + 1).CopyFromRecordset rs
24.    End With
25.    rs.Close
26.    Cnn.Close
27.    Set rs = Nothing
28.    Set Cnn = Nothing
29.End Sub
代码解析：
CopyData_5过程使建立与“数据表”工作簿的连接，查询数据记录后复制到当前工作表中。
第8行代码删除当前工作表的所有数据。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。