不用按钮，把Access表中的数据分类汇总到EXCEL表

dtyghw

quqiyuan 发表于 2024-11-24 18:02
代码如下。。。
   
Sub test()

老师您好，当数据库中再新增一行数据时，点击按钮汇总，相同的数据没有求和，而是出现了两行数据，请问是啥原因，请指教。

quqiyuan

dtyghw 发表于 2024-11-27 09:32
老师您好，当数据库中再新增一行数据时，点击按钮汇总，相同的数据没有求和，而是出现了两行数据，请问是 ...

原来的没有汇总功能，我现在改过来了，供你参考。。。。

PQ也改了。

quqiyuan

代码如下。。。。
Sub test1()
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    strSQL = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
        ThisWorkbook.Path & "\HXDataBase.accdb"
    cnn.Open strSQL
    s = Join(Application.Rept(Sheets("Sheet3").[g1:i1], 1), ",")
    s1 = s & ",sum(" & Sheets("Sheet3").[j1] & ") as " & Sheets("Sheet3").[j1]
    sql = "Select " & s1 & " from 产品参数 group by " & s
    rst.Open sql, cnn, 1, 1
    Sheets("Sheet3").[g2].CopyFromRecordset rst
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Beep
End Sub

dtyghw

quqiyuan 发表于 2024-11-27 10:39
原来的没有汇总功能，我现在改过来了，供你参考。。。。

PQ也改了。

谢谢老师，我试试

quqiyuan

dtyghw 发表于 2024-11-27 10:43
谢谢老师，我试试

g1:j1这几个标题要保留，否则出错。下面的数据行可以删除，没有写删除行的代码

quqiyuan

我在access数据库加了一行，测试过了

dtyghw

quqiyuan 发表于 2024-11-27 10:46
我在access数据库加了一行，测试过了

老师您好，PQ刷新时提示这个 ，vba代码的能正常显示。我用的是Office2016版。

quqiyuan

dtyghw 发表于 2024-11-27 10:50
老师您好，PQ刷新时提示这个，vba代码的能正常显示。我用的是Office2016版。

有眼光

直接在access里做分类汇总就行了，何必再到excel？