不打开工作簿取得其他工作簿数据的几种方法.docVIP

不打开工作簿取得其他工作簿数据的几种方法 在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。 1 数据不多时使用公式 如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所示。 Sub CopyData_1() Dim Temp As String Temp = ThisWorkbook.Path \[数据表.xls]Sheet1! With Sheet1.Range(A1:F22) .FormulaR1C1 = = Temp RC .Value = .Value End With End Sub 代码解析： CopyData_1过程在工作表中写入公式引用“数据表”中同一位置单元格中的数据。 第3行代码将引用工作簿的路径赋给变量Temp。 第5行代码在作表中写入公式引用数据。 第6行代码将公式转换为数值。 2 使用GetObject函数获取对指定的Excel工作表的引用使用GetObject函数来获取对指定的Excel工作表的引用 Sub CopyData_2() Dim Wb As Workbook Dim Temp As String Application.ScreenUpdating = False Temp = ThisWorkbook.Path \数据表.xls Set Wb = GetObject(Temp) With Wb.Sheets(1).Range(A1).CurrentRegion Range(A1).Resize(.Rows.Count, .Columns.Count) = .Value Wb.Close False End With Set Wb = Nothing Application.ScreenUpdating = True End Sub 代码解析： CopyData_2过程使用GetObject函数来获取关闭屏幕更新加快速度使用Set语句将GetObject函数返回的对象赋给对象变量WbGetObject函数对象被激活之后，就可以在代码中使用对象变量Wb来这个对象的属性和方法GetObject函数返回对象的引用Close语句将其关闭。 第12行代码开启屏幕更新Application对象Application对象 Sub CopyData_3() Dim myApp As New Application Dim Sh As Worksheet Dim Temp As String Temp = ThisWorkbook.Path \数据表.xls myApp.Visible = False Set Sh = myApp.Workbooks.Open(Temp).Sheets(1) With Sh.Range(A1).CurrentRegion Range(A1).Resize(.Rows.Count, .Columns.Count) = .Value End With myApp.Quit Set Sh = Nothing Set myApp = Nothing End Sub 代码解析： CopyData_3过程隐藏Application对象New关键字隐式地创建Application对象创建Application对象Visible属性设置为False，使之隐藏。 第7行代码使用Open方法打开“数据表”工作簿（关于Open方法请参阅技巧42 ，因为工作簿是使用新创建Application对象Quit方法退出Excel程序。 4 使用ExecuteExcel4Macro方法 使用ExecuteExcel4Macro方法可以做到不打开工作簿的情况下获取其他工作薄中指定工作表的数据，如下面的代码所示。 Sub CopyData_4() Dim RCount As Long Dim CCount As Long Dim Temp As String Dim Temp1 As String Dim Temp2 As String D