Excel_VBA从关闭的工作簿中取值多种实现方法(代码).docVIP

从关闭的工作簿中取值有多种方法，现将网上收集的整理向大家共享。 方法1、使用公式方法2、使用GetObject函数方法3、隐藏Application对象 方法4、使用ExecuteExcel4Macro方法 方法5、使用SQL连接 其它收集的相关 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函数 （返回目录）使用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函数来获取“数据表”工作簿中的数据。第4行代码关闭屏幕更新加快运行速度。第5行代码将引用工作簿的路径赋给变量Temp。第6行代码使用Set语句将GetObject函数返回的对象赋给对象变量Wb。GetObject函数返回文件中的ActiveX对象的引用，语法如下：GetObject([pathname] [, class])参数pathname是可选的，包含待检索对象的文件的全路径和名称。如果省略，则class参数是必需的。参数class是可选的，代表该对象的类的字符串。Class参数的格式为appname.objecttype，语法的各个部分如表格 1所示。 部分 描述 appname 必需的，提供该对象的应用程序名称。 objecttype 必需的，待创建对象的类型或类。 表格 1 Class参数语法的各个部分第7行到第10行代码，当GetObject函数指定的对象被激活之后，就可以在代码中使用对象变量Wb来访问这个对象的属性和方法。其中第7、8行代码将“数据表”工作簿中的第1张工作表已使用区域的数据赋给本工作表的单元格，第9行代码关闭“数据表”工作簿，使用GetObject函数返回对象的引用时，虽然在窗口中看不到对象的实例，但实际上是打开的，所以需用Close语句将其关闭。第12行代码开启屏幕更新。3、隐藏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 = No