『壹』 如何将多个excel文件的数据汇总到一个表格文件里
假设汇总的工作表名就叫“汇总”，右键输入代码：Sub Together() With Sheets("汇总") For Each s In Sheets If s.Name <> "汇总" Then s.Range("a5:i5" ).Copy Range("a" & Range("a65536").End(xlUp).Row + 1).PasteSpecial End If Next End WithEnd Sub
『贰』 VBA汇总统一文件夹下的多个表格的数据
大家好，今天继续讲解《VBA数据库解决方案》，今日讲解的是第37讲，利用ADO，实现同一文件夹下多个EXCEL工作表的数据汇总。最近的内容实用性比较强，如今日的内容，只把需要汇总的EXCEL文件放在同一个文件夹下，而且格式一致，那么利用ADO汇总这几个文件的数据是非常快的,这讲的内容和第32讲的内容是类似的，不过第32讲的内容是要事先知道文件的名称，然后建立一个数组来分别对应每个文件，通过循环来实现从每个文件中提取数据的目的，本讲的内容是事先不知道每个文件的名称。实例：在一个文件夹下有若干个文件，如下图：我们现在，需要把上面的文件夹中除了“VBA与数据库操作”之外的各个文件的内容一次性汇总出来，这个VBA程序该如何写呢？代码如下：Sub mynzexcels_6()'第37讲，利用ADO,实现同一文件夹下EXCEL工作表数据的汇总Dim cnADO As ObjectDim strPath, strTable, strSQL, Z As StringSet cnADO = CreateObject("ADODB.Connection")Range("a:g").ClearContentsRange("a1:e1") = Array("日期", "型号", "批号", "出库数量", "库存数量")Z = Dir(ThisWorkbook.Path & "\*.*")strPath = ThisWorkbook.Path & "\" & ZstrTable = "[sheet1$A2:h65536]"'建立连接,提取数据x = 2Do While Z <> ""If Z <> "VBA与数据库操作.xlsm" ThencnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 8.0;hdr=no;imex=1';data source=" & strPathstrSQL = "select F1,F2,F3,F4,F5 from " & strTableRange("A" & x).CopyFromRecordset cnADO.Execute(strSQL)x = Range("b65536").End(xlUp).RowcnADO.CloseEnd IfZ = DirLoopSet cnADO = NothingEnd Sub代码截图：代码讲解：1 Z = Dir(ThisWorkbook.Path & "\*.*") 其中DIR函数用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。2 strPath = ThisWorkbook.Path & "\" & ZstrTable = "[sheet1$A2:h65536]"上述代码分别给出了文件的路径名称和数据表的范围，数据的范围是sheet1工作表除去表头后的全部$A2:h65536.3 strSQL = "select F1,F2,F3,F4,F5 from " & strTableRange("A" & x).CopyFromRecordset cnADO.Execute(strSQL)建立连接后把需要的数据拷贝出来，需要的数据是第1列，第2列，第3列，第4列 ，第5列4 x = Range("b65536").End(xlUp).Row 下次复制的位置确定.5 Z = Dir特别注意：第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。上述的Z=dir 就是实现的下一个文件名的调用。下面看运行的结果：点击“ADO实现同文件夹下所有文件数据汇总”按钮：汇总后再A到E列给出了数据的汇总：今日内容回向：1 在不知道文件名和文件个数的前提下，如何汇总文件？2 DIR函数的意义是否理解？
『叁』 如何把多个EXCEL文件汇总到一个EXCEL中
汇总方法如下：
1，新建一个空白的Excel文件，点击数据工具栏，依次选择“新建查询”-“从文件”-“从文件夹”。
『肆』 怎么将EXCEL表格里面的工作表汇总到一个工作表
1.首先，打开Excel文件，依次点击菜单栏的“数据”->“新建查询”->“从文件”->“从工作簿
2.接着在弹出的“导入数据”对话框中选择我们需要合并的Excel文件，点击“导入”按钮
3.然后在弹出的“Navigator”对话框中勾选“select multiple items”，选择我们需要合并的表格，也就是表一、表二、标三，如下，点击“Transform Data”按钮
4.接着在弹出的对话框中依次选择“Combine”->“Append Queries”->“Append Queries as New”
5.在弹出的“Append”对话框中选择“Three or more tables”，将需要合并的表格依次添加到右边，点击“OK”按钮
6.接着就会出现一个新表，里面就是3个表格合并后的数据
7.点击菜单栏的“Close & Load”，合并后的数据如下，就是3个总的数据
『伍』 汇总统一文件夹下的多个表格的数据
1、首先打开多个EXCEL表格，点击进入汇总的表格。
『陆』 excel多表格怎么汇总
打开汇总工作簿，Excel2016版执行数据(10、13版power querry) – 新建查询 – 从文件 – 从文件夹。
添加切片器后，将让表格任意生成：
成本汇总表、利润汇总表等各种表格，想要深入了解powerquery的话你还需要学习更多知识哦！
