[已解决]求用VBA实现多条件分类汇总，请帮帮忙，谢谢！

wzw9999

字典+数组的方法成功了，我想筛选点汇总数为0的，要怎么做？

hwc2ycy

那你用字典的方法吧。

另外其实你用数透是最简单的，比这两个方法都好使。

hwc2ycy

wzw9999 发表于 2013-7-24 14:57
2010的，工作环境要2003的

不知道是不是OFFICE没装好还是别原因。
我发一个10能用的你试试把原来的AOQUERY替换掉。

1. Sub ADOQuery(strFullname As String, Optional strSQL As String, Optional blnHasHeader As Boolean = True)
   
2. '需要定义的常量
   
3.     Const adUseClient = 3
   
4.     Const adModeShareDenyWrite = 8
   
5.     Const adModeReadWrite = 3
   
6.     Const adModeRead = 1
   
7. 
   
8.     Dim AdoConn As Object, AdoRst As Object
   
9.     Dim StrConn$
   
10. 
    
11.     Set AdoConn = CreateObject("ADODB.Connection")
    
12. 
    
13.     StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & strFullname & "';Extended Properties='Excel 12.0;HDR=" & blnHasHeader & ";imex=1';"
    
14. 
    
15.     Debug.Print StrConn
    
16. 
    
17.     On Error GoTo ErrorHandler
    
18. 
    
19.     With AdoConn
    
20.         .CommandTimeout = 15
    
21.         .ConnectionTimeout = 15
    
22.         .CursorLocation = adUseClient
    
23.         .Mode = adModeRead    'Write    'adModeShareDenyWrite
    
24.         .ConnectionString = StrConn
    
25.         .Open
    
26.     End With
    
27. 
    
28.     Debug.Print strSQL
    
29.     Set AdoRst = AdoConn.Execute(strSQL)
    
30.     Worksheets("分类汇总").Range("a2").CopyFromRecordset AdoRst
    
31. 
    
32.     AdoConn.Close
    
33.     Exit Sub
    
34. 
    
35. ErrorHandler:
    
36.     MsgBox Err.Number & vbCrLf & _
    
37.            Err.Description
    
38.     Set AdoRst = Nothing
    
39.     Set AdoConn = Nothing
    
40. End Sub

复制代码

wzw9999

谢谢，我试试

wzw9999

可以用了，果然是高手，请问怎么把悬赏的金币给你？