ADO或者数组的统计方式求助

此用户被禁言

各位老师帮忙看一下，虽然我透视表做出来了一个大概效果，但是不是我要的最终效果，而且我的数据源每月在9-15W行。所以可能需要使用ADO的统计方式，因为我透视表统计出来的结果不是我最终要的，附件中有详细说明，请老师帮忙看看，谢谢


求助.zip (10.93 KB, 下载次数: 20)

2014-11-3 21:45 上传

点击文件名下载附件

此用户被禁言

"select 车次单号,调拨出货仓,单据出货仓,单据收货仓,卸货点1,卸货点2,卸货点3,sum(方数) as 方数 from [明细$] where 车次单号 is not null group by 车次单号,调拨出货仓,单据出货仓,单据收货仓"

这样的的SQL语句不行，不知道要如何修改了。

此用户被禁言

顶一下，继续求助

此用户被禁言

哪位老师帮忙看看，谢谢

chxw68

1. Sub test()
   
2.   Dim d As New Dictionary
   
3.   Dim cnn As New ADODB.Connection
   
4.   Dim rs As New ADODB.Recordset
   
5.   Dim sql As String
   
6.   Dim mybook As String
   
7.   Dim arr, brr(), crr()
   
8.   mybook = ThisWorkbook.FullName
   
9.   With cnn
   
10.     If Application.Version = "11.0" Then
    
11.       .Provider = "microsoft.jet.oledb.4.0"
    
12.       .ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & mybook
    
13.     Else
    
14.       .Provider = "microsoft.ACE.oledb.12.0"
    
15.       .ConnectionString = "extended properties=""excel 12.0;HDR=YES;"";data source=" & mybook
    
16.     End If
    
17.     .Open
    
18.   End With
    
19.   sql = "select 车次单号,调拨出货仓,单据出货仓,单据收货仓,[卸货点1],[卸货点2],[卸货点3],车型,物流类型,sum(方数) as 方数,采购运费 from [明细$a1:p] group by 车次单号,调拨出货仓,单据出货仓,单据收货仓,[卸货点1],[卸货点2],[卸货点3],车型,物流类型,采购运费"
    
20.   arr = cnn.Execute(sql).GetRows()
    
21.   ReDim brr(1 To UBound(arr, 2) + 1, 0 To UBound(arr) + 1)
    
22.   For i = 0 To UBound(arr)
    
23.     For j = 0 To UBound(arr, 2)
    
24.       brr(j + 1, i + 1) = arr(i, j)
    
25.     Next
    
26.   Next
    
27.   
    
28.   For i = 1 To UBound(brr)
    
29.     d(brr(i, 1)) = d(brr(i, 1)) + 1
    
30.   Next
    
31.   mm = Application.Max(d.Items)
    
32.   ReDim crr(1 To d.Count, 1 To UBound(brr, 2) + mm - 1)
    
33.   d.RemoveAll
    
34.   m = 0
    
35.   For i = 1 To UBound(brr)
    
36.     If Not d.Exists(brr(i, 1)) Then
    
37.       m = m + 1
    
38.       d(brr(i, 1)) = m
    
39.       For j = 1 To 10
    
40.         crr(m, j) = brr(i, j)
    
41.       Next
    
42.       crr(m, UBound(crr, 2)) = brr(i, 11)
    
43.     Else
    
44.       n = d(brr(i, 1))
    
45.       For j = 10 To 9 + mm
    
46.         If Len(crr(n, j)) = 0 Then
    
47.           crr(n, j) = brr(i, 10)
    
48.           Exit For
    
49.         End If
    
50.       Next
    
51.     End If
    
52.   Next
    
53.   
    
54.   With Worksheets("结果")
    
55.     .Cells.Clear
    
56.     .Range("a1:i1") = Split("车次单号,调拨出货仓,单据出货仓,单据收货仓,[卸货点1],[卸货点2],[卸货点3],车型,物流类型", ",")
    
57.     For j = 1 To mm
    
58.       .Cells(1, 9 + j) = "方数" & j
    
59.     Next
    
60.     .Cells(1, UBound(crr, 2)) = "采购运费"
    
61.     .Range("a2").Resize(UBound(crr), UBound(crr, 2)) = crr
    
62.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
63.     With .Range("a1").Resize(r, UBound(crr, 2))
    
64.       .Borders.LineStyle = xlContinuous
    
65.     End With
    
66.   End With
    
67. End Sub
    

复制代码

chxw68

单用ADO实现比较困难。利用ADO+字典+数组做的，供楼主参考。

此用户被禁言

chxw68 发表于 2014-11-4 09:55
单用ADO实现比较困难。利用ADO+字典+数组做的，供楼主参考。

多谢老师帮助，上班有点忙，我叫同事核对一下结果，按示例没有问题，谢谢

此用户被禁言

chxw68 发表于 2014-11-4 09:55
单用ADO实现比较困难。利用ADO+字典+数组做的，供楼主参考。

老师，你好，我加了一个[卸货点4]后，想请教一下需要再修改哪几个地方。因为出来的结果不正确了

也就是我现在增加了一列，我修改了后发现还是不正确。麻烦老师指点一下修改的地方，谢谢

chxw68

此用户被禁言 发表于 2014-11-11 09:28
老师，你好，我加了一个[卸货点4]后，想请教一下需要再修改哪几个地方。因为出来的结果不正确了

也就是 ...

建议把出错的文件打包传上来。

此用户被禁言

chxw68 发表于 2014-11-11 11:19
建议把出错的文件打包传上来。

多谢老师，我大概修改了一下，好像可以了，我叫人核对一下。如果有问题我再上传文件来。感谢