各位大师，SQL语名帮忙看在看下哪错了

冷酷的云

多表汇总.zip (20.94 KB, 下载次数: 5)

2024-1-22 10:58 上传

点击文件名下载附件

Sub 案例5()
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object
Dim ws As Worksheet
Dim i As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set ws = ThisWorkbook.Worksheets("汇总")
ws.Cells.ClearContents

'建立与工作簿的连接
With cnn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "Extended Properties=Excel 12.0;" _
& "Data Source=" & ThisWorkbook.FullName
.Open
End With

'进行统计汇总
Sql = "select '2月'as 月份,* from [2月$] union" _
& "select '3月'as 月份,* from [3月$] union" _
& "select'4月'as 月份,* from[4月$] union" _
& "select'5月' as 月份, *from[5月$] union" _
& "select'6月' as 月份,* from[6月$] union" _
& "select'7月' as 月份,* from [7月$]"

Set rs = New ADODB.Recordset
rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
ws.Range("A2").CopyFromRecordset rs
'关闭查询和连接
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

jiangxiaoyun

这种找不到语法问题的话，就可能是[2月$]这些表格里的列数不一样，限定范围吧

fzxba

1. '留意空格
   
2. Sql = "select '2月' as 月份,* from [2月$] union all " _
   
3. & "select '3月' as 月份,* from [3月$] union all " _
   
4. & "select '4月' as 月份,* from [4月$] union all " _
   
5. & "select '5月' as 月份,* from [5月$] union all " _
   
6. & "select '6月' as 月份,* from [6月$] union all " _
   
7. & "select '7月' as 月份,* from [7月$]"

复制代码

taller

冷酷的云

已解决，感谢2位大师帮忙