数据汇总至总表（SQL法求助）

yishang3

已知表1，表2，表3，运用SQL方法汇总到sheet1中，请论坛里的老师帮忙解答，谢谢！ SQL录入与查询.zip (8.05 KB, 下载次数: 16)

2022-12-25 18:04 上传

点击文件名下载附件

WANT-T

1、你这个东西来回行列转置，用sql的逻辑处理，excel怕不支持呀！即使支持，这个逻辑也是相对复杂的！
2、汇总后也可以根据表格名在汇总数据中查询数据，这个需要动态拼接SQL，技术上到不难，不过想让人干活，得明确下口径吧？

yishang3

WANT-T 发表于 2022-12-25 18:21
1、你这个东西来回行列转置，用sql的逻辑处理，excel怕不支持呀！即使支持，这个逻辑也是相对复杂的！
2、 ...

1. Private Sub CommandButton1_Click()
   
2.   Dim conn As Object, rs As Object
   
3.   Dim sql As String, sql1 As String, sql2 As String
   
4.   Dim i As Integer, field
   
5.          Set conn = CreateObject("adodb.connection")
   
6.          Set rs = CreateObject("adodb.recordset")
   
7. 
   
8.          
   
9.            PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
10.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    
11.     Case Is <= 11
    
12.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
13.     Case Is >= 12
    
14.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
15.     End Select
    
16.     conn.Open strConn    '打开数据库链接
    
17. 
    
18.          sql1 = "transform sum(PP1) select 编号 from sheet1 group by 编号 PIVOT 类别"
    
19.          Cells.Clear
    
20.          Range("B5").CopyFromRecordset conn.Execute(sql1)
    
21.          rs.Open (sql1), conn
    
22.          For Each field In rs.Fields
    
23.              [a4].Offset(0, i + 1) = "'" & field.Name
    
24.              i = i + 1
    
25.          Next
    
26.          Range("B4").CurrentRegion.Borders.LineStyle = 1
    
27.          conn.Close
    
28.          Set conn = Nothing
    
29.          Set rs = Nothing
    
30. 
    
31. End Sub

复制代码

yishang3

WANT-T 发表于 2022-12-25 18:21
1、你这个东西来回行列转置，用sql的逻辑处理，excel怕不支持呀！即使支持，这个逻辑也是相对复杂的！
2、 ...

SQL转置应该是可以达到目的，但写了几次这个代码一直出错，就不知道方向了

WANT-T

yishang3 发表于 2022-12-25 22:14
SQL转置应该是可以达到目的，但写了几次这个代码一直出错，就不知道方向了

你这个东西，第一步的三表合一要求，需要先将来源的三个表列转行(逆透视)，然后合并（union)，然后再转置(transform)；看你的代码，似乎懂一些，但是不多（transform语法错误），给你个实例代码，供参考学习：

1.     sql = "TRANSFORM COUNT(A.user_id) " & _
   
2.         "SELECT A.area_desc AS 地市 " & _
   
3.         "FROM  VIP_CLASS_SPLIT A " & _
   
4.         "LEFT JOIN DIM_AREA B " & _
   
5.         "ON B.AREA_DESC=A.AREA_DESC " & _
   
6.         "GROUP BY A.area_desc,b.ord " & _
   
7.         "ORDER BY B.ord " & _
   
8.         "PIVOT A.vip_Class "

复制代码

mmwwdd

Sub test()
Dim cnn As Object
Dim rs As Object
Dim MySQL As String
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;Data Source = " _
& ThisWorkbook.FullName
MySQL = "SELECT 编号,'W' AS 类别, MAX(W) As PP1 FROM [PP1$] GROUP BY 编号 Union SELECT 编号,'C' AS 类别, MAX(C) As PP1 FROM [PP1$] GROUP BY 编号  Union SELECT 编号,'S' AS 类别, MAX(S) As PP1 FROM [PP1$] GROUP BY 编号"
rs.Open MySQL, cnn, 1, 3
With Sheets("结果")
.Range("A3").CopyFromRecordset rs
For i = 0 To rs.Fields.Count - 1
    .Cells(2, i + 1) = rs.Fields(i).Name
Next
   
End With
End Sub

mmwwdd

用这个方法可以实现,我也是百度了一下,实际很多例子都有,多百度吧

3190496160

处理这种类型的问题，不是sql的优势，
因为，还存在数据的匹配问题呀，

mmwwdd

这个用SQL给你做了,还在审核中

grf1973

这个用sql不是很方便，用数组+字典要简单得多。