用VB或宏打开一个EXCEL文件并表复制内容到另外一个总表中

Question

我有个总表格式如下，需要从几百个分表中复制数据，粘贴到总表统计，要求是：在总表中光标放在某一个表名上，运行宏，宏会自动打开光标所在表的表名，并将表中数量这一列复制，然后粘贴到总表的对应表的对应栏中。总表及分表格式如下，分表取名为：表一、表二、表三、..........，向高手求助！

Answer 1

Sub 汇总()

Dim strPath As String

Dim MySht As String

Dim MyWK As Workbook

strPath = ThisWorkbook.Path

For I = 2 To 2001

If Cells(2, I) = "" Then

Exit For

Else

Set MyWK = Workbooks.Open(strPath & "\" & Cells(2, I) & ".xlsx") ''请注意你的EXCEL档案存放的路径

ARR = Range("B2:B7") ''注意你要复制的资料范围

End If

MyWK.Close

Cells(3, I).Resize(6, 1) = ARR

Next

End Sub

Answer 2

1、分表是否有密码？
2、为什么要选中才提取，而不是一次性提取？
3、分表有几百个 ，那总表最多可能存在几百列？
4、分表和总表是否存在一个文件夹下，分表和总表工作薄内取哪个名称的工作表（例Sheet1）追问

这相当是统计全县各学校订货数据，分表格式相同，无密码。现在需要汇总，如果手工一张张复制粘贴的话很麻烦，所以想到用宏或VB编程来完成。分表有200个左右，数据均放在sheet1中，数据表全部收集并把表名按单位改好了，就等着汇总了。

追答

之前看过一些文章，需要excel2016

Answer 3

在Excel中用powerquery做吧！