为了实现各个工作表中的数据都汇总到同一个工作表中，我们看下面的代码：
Sub mynzexcels_4()
'第35讲，利用ADO,实现EXCEL多个工作表数据的汇总
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String
Dim SH As Worksheet
ThisWorkbook.ActiveSheet.Cells.Clear
Set cnADO = CreateObject("ADODB.Connection")
'建立连接
strPath = ThisWorkbook.Path & "\" & "16年.xlsx"
Workbooks.Open strPath
cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 8.0;hdr=no;imex=1';data source=" & strPath
For Each SH In Worksheets
strTable = "[" & SH.Name & "$]"
strSQL = "select * from " & strTable
ThisWorkbook.ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL)
Next
Workbooks("16年").Close
cnADO.Close
Set cnADO = Nothing
End Sub
代码截图：
代码讲解：
1 Workbooks.Open strPath 这里要打开这个文件，以便提取每个工作表的数据，如果不打开时下面的FOR EACH会报错。
2 strTable = "[" & SH.Name & "$]"
strSQL = "select * from " & strTable
上述代码是嵌套在for each 循环中，先提取每个工作表的名字，然后建立SQL可执行的语句。
3 ThisWorkbook.ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL)
将数据提取处来放到当前的工作表中，这处是执行了一个SQL语句。
4 Workbooks("16年").Close 关闭这个文件。这处可以用Workbooks("16年").Close（false）,较好。
下面看我们代码的执行过程：
点击”多工作表的数据汇总”：这样就实现了我们的目的：多个工作表的数据汇总。
今日内容回向：
1 如何实现多个工作表的汇总？
2 为啥要先打开这个文件呢？