excel VBA在不打开工作薄情况下提取单元内容

Question

例:工作薄一(统计表)/工作薄二(统计表)/的B6/B7/B8内容提取到工作薄三(审核表)的K8/K9/K10/K11/K12/K13
请问如何提取(在不打开工作薄一和在工作薄二情况下提取)最好是宏加公式
= Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[工作薄一.xls]Sheet19'! R8C3")
上面这个公式对吗?
可以用这个公式录成宏吗

Answer 1

一般不打开工作簿 其实还是打开 只是隐藏掉了过程而已

Sub zldccmx()
Application.EnableEvents = False
Application.ScreenUpdating = False
Set xap = GetObject("N:\Fab\Marking\Cutting\Data.xls") '我要得到的文件的的路径是：N:\Fab\Marking\Cutting\Data.xls
arr = xap.Sheets("Sheet2").[B2:Q1000] '选择的区域是: Sheet2 , B2: Q1000
xap.Close False
ThisWorkbook.Sheets("sheet1").[C2:R1000] = arr
'我当前的文件路径是：N:\Fab\Marking\Report\Aug Report\Monthly Report.xls
'需要覆盖的区域是: Sheet1 , C2: R1000
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub