loading...

有许多种从关闭的工作簿中取值的方法，下面是其中之一。下面的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
其中，可以将代码中的路径修改为需要从中获取值的工作簿的路径，单元格也作相应的修改。