在不允许打开工作簿的情况看下，直接汇总各个工作簿和工作表的数据，可以通过之前讲过的ADO+SQL来实现。今天给大家分享一下如何操作。 ADO+SQL汇总表下面的案例使用ADO+SQL方法，分别从工作表中查询数据，并将每个工作表的数据保存到一个指定的工作表中。 '''Sub makeSummaryData() Dim conn As ADODB.Connection, rs As ADODB.recordset Dim sql As String, shtName As String Dim sht As Worksheet ' 从第2个表开始汇总 sheetsCount = ThisWorkbook.Worksheets.Count sql = "" For i = 2 To n shtName = ThisWorkbook.Worksheets(i).Name sql = sql & "SELECT * FROM [" & shtName & "$]" If i <> n Then sql = sql & " UNION ALL " End If Next ' 连接Excel数据库 dbName = ThisWorkbook.FullName Set conn = getConn(dbName) ' 查询Excel数据 Set rs = queryResult(conn, sql) ' 复制结果到Excel sht.Range("A1").CopyFromRecordset rs MsgBoxEx "Done"End Sub