从关闭的工作簿中取值
有许多种从关闭的工作簿中取值的方法,下面是其中之一。下面的VBA代码从关闭的工作簿中获取值。
Sub ExtractDataFromClosedWorkBook()
Application.ScreenUpdating = False
‘创建链接来从关闭的工作簿中获取数据
‘可以将相关代码修改为相应的路径和单元格
With [Sheet1!A1:B4]
.Value = “=’” & ActiveWorkbook.Path & “\[testDataWorkbook.xls]Sheet1′!A1:B4″
‘删除链接
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub
其中,可以将代码中的路径修改为需要从中获取值的工作簿的路径,单元格也作相应的修改。

发表评论