Excel 2016版 vba+sql语句编译时报自动化错误

VinceDalen

1. Sub 分组求和()
   
2. Dim cnn As Object, rst As Object
   
3. Dim mypath As String
   
4. Dim str_cnn As String
   
5. Dim sql As String
   
6. Dim i As Long
   
7. Set cnn = CreateObject("adodb.connection")
   
8. mypath = ThisWorkbook.FullName
   
9. If Application.Version < 12 Then
   
10.         str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & mypath
    
11.     Else
    
12.         str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & mypath
    
13.     End If
    
14. cnn.Open str_cnn
    
15. <div>sql = "SELECT 银行账号,SUM(交易金额) AS 2018年1月交易量 FROM [Sheet2$] GROUP BY 银行账号"</div><div>Set rst = cnn.Execute(sql)
    
16. </div> Worksheets(Sheet3).[a:b].ClearContents
    
17.     For i = 0 To rst.Fields.Count - 1
    
18.         Worksheets(Sheet3).Cells(1, i + 1) = rst.Fields(i).Name
    
19.     Next
    
20.     Worksheets(Sheet3).Range("a2").CopyFromRecordset rst
    
21.     cnn.Close
    
22.     Set cnn = Nothing
    
23. 
    
24. 
    
25. End Sub

复制代码

Set rst = cnn.Execute(sql)这句报错

lsdongjh

很多错误，最厉害的就是 rst没有初始化
Set Rst = CreateObject("ADODB.Recordset")

VinceDalen

lsdongjh 发表于 2018-8-17 16:59
很多错误，最厉害的就是 rst没有初始化
Set Rst = CreateObject("ADODB.Recordset")

可以帮忙修改一下吗？ 谢谢  因为刚学VBA+SQL 所以很多东西都是照搬的   rst进行初始化之后还是报错

lsdongjh

Worksheets(Sheet3) =>  Worksheets("Sheet3")

VinceDalen

lsdongjh 发表于 2018-8-17 17:12
Worksheets(Sheet3) =>  Worksheets("Sheet3")

都修改了之后，还是会在 rst = cnn.Execute(sql)报错 这个是为什么？

lsdongjh

上个附件吧

mxf21cn

应该是你的SQL语句有问题，另外Worksheets(Sheet3)应该为Worksheets(“Sheet3“)

mxf21cn

建议你在ACCESS中建立一个sheet2一样的表，用SQL查询看看结果，成功了再把语句复制过来

xiangbaoan

<div></div>这些无用，只与html有关，你删除后再试。

mxf21cn

sql = "SELECT DISTINCTROW 银行帐号, Sum(交易金额) AS [交易金额 之 合计] FROM [Sheet2$] GROUP BY 银行帐号"
试试看吧