求助：把多个工作薄中数据快速汇总到一个新工作表

别沉得太快了.

这是什么节奏,没人看到吗,还是我没有写清楚.

Sub lsy()
Application.ScreenUpdating = False
Dim mySQL As String
Dim mycnn
Dim a
a = Dir(ThisWorkbook.Path & "\*.xls")
Do
Set mycnn = CreateObject("adodb.connection")
If a <> ThisWorkbook.Name Then
mycnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & a
mySQL = "select * from [ExcelData$]" 'ExcelData系原数据所在工作表名称
Range("A65536").End(xlUp).Offset(1, 0).CopyFromRecordset mycnn.Execute(mySQL)
End If
Set mycnn = Nothing
a = Dir
Loop While Len(a) And a <> ThisWorkbook.Name
Application.ScreenUpdating = True
End Sub