vba从关闭问卷中提取数值.docxVIP

经常有人提出关于如何从已关闭（或未打开）的工作簿中取值的问题，我将自已收集整理的一些代码辑录于此，供参考。示例代码1：Sub testGetValuesFromClosedWorkbook() GetValuesFromAClosedWorkbook C:, Book1.xls, Sheet1, A1:G20EndSubSub GetValuesFromAClosedWorkbook(fPath AsString, _ fName AsString, sName, cellRange AsString)With ActiveSheet.Range(cellRange) .FormulaArray = = fPath \[ fName ] _ sName ! cellRange .Value = .ValueEndWithEndSub本示例包含一个子过程GetValuesFromAClosedWorkbook，用来从已关闭的工作簿中获取数据，主过程testGetValuesFromClosedWorkbook用来传递参数。本示例表示从C盘根目录下的Book1.xls工作簿的工作表Sheet1中的A1:G20单元格区域内获取数据，并将其复制到当前工作表相应单元格区域中。示例代码2：已前面的代码相似，下面的VBA代码从关闭的工作簿中获取值。Sub ExtractDataFromClosedWorkBook() Application.ScreenUpdating = False创建链接来从关闭的工作簿中获取数据可以将相关代码修改为相应的路径和单元格With [Sheet1!A1:B4] .Value = = ActiveWorkbook.Path \[testDataWorkbook.xls]Sheet1!A1:B4删除链接 .Value = .ValueEndWith Application.ScreenUpdating = TrueEndSub其中，可以将代码中的路径修改为需要从中获取值的工作簿的路径，单元格也作相应的修改。示例代码3：Sub GetDataFromClosedWorkbook()Dim wb As Workbook Application.ScreenUpdating = False以只读方式打开工作簿Set wb = Workbooks.Open(C:\文件夹名\文件.xls, True, True)With ThisWorkbook.Worksheets(工作表名)从工作簿中读取数据 .Range(A10).Formula = wb.Worksheets(源工作表名).Range(A10).Formula .Range(A11).Formula = wb.Worksheets(源工作表名).Range(A20).Formula .Range(A12).Formula = wb.Worksheets(源工作表名).Range(A30).Formula .Range(A13).Formula = wb.Worksheets(源工作表名).Range(A40).FormulaEndWith wb.CloseFalse关闭打开的源数据工作簿且不保存任何变化Set wb = Nothing释放内存 Application.ScreenUpdating = TrueEndSub在运行程序时，打开所要获取数据的工作簿，当取得数据后再关闭该工作簿。将屏幕更新属性值设置为False，将看不出源数据工作簿是否被打开过。本程序代码中，“C:\文件夹名\文件.xls”、”源工作表名”代表工作簿所在的文件夹和工作簿文件名。示例代码4：下面是JOHN WALKENBACH先生使用VBA编写的一个实用函数，其作用是从关闭的工作簿中取值。VBA没有包含从关闭的文件中获取值的方法，但是利用Excel处理连接文件的功能，可以实现。该函数要调用XLM宏，但不能在工作表公式中使用该函数。GetValue函数具有四个参数，分别如下：path: 关闭的文件的驱动器和路径(例如”d:\files”)file: 工作簿名称(例如”99budget.xls”)sheet: 工作表名称(例如”Sheet1″)ref: 单元格引用(例如”C4″)PrivateFunction GetValue(path, file, sheet, ref) 从一个关闭的工作簿中获取值Dim arg AsString 确保该文件存在If Right