excel宏，如何将数百个工作簿的中指定位置数据汇总到一个新工作表中

'=======打开远程表格（计划1）开始===============
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Open("y:\计划1.xls") '工作簿名
Set ExcelSheet = ExcelBook.Worksheets("计划1") ‘工作表名
'=======打开远程表格（计划1）结束===============
cells(1,1)=ExcelSheet.cells(39,5) '本表第一格 等于 计划簿1的计划表1的 E39

'=======保存并关闭远程表格（计划1）开始==========
ExcelBook.Save
ExcelBook.Close
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing
'=======保存并关闭远程表格（计划1）结束=========
以上是例子 循环等设置 自己能处理吧？

直接写公式：
=[D:\DATA\1.XLS]SHEET1!E39
或者：
=[D:\DATA\2.XLS]SHEET1!E39+[D:\DATA\2.XLS]SHEET1!E39+=[D:\DATA\2.XLS]SHEET1!E39…………

先将所有工作簿的内容集中到一张工作表上。之后你就会了。