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

dtyghw

各位老师，我想不用按钮，实时把Access “产品参数”表中的数据，分类汇总到excel的sheet3中。当Access 表中的数据有变化，sheet3中的汇总数据也及时更新，请问这个功能用VBA代码可以实现吗，请指教。谢谢

沈默00

写个事件试试看
我的WPS，，弄不了，，

dtyghw

沈默00 发表于 2024-11-24 15:19
写个事件试试看
我的WPS，，弄不了，，

我用的是OFFICE2016

沈默00

dtyghw 发表于 2024-11-24 15:27
我用的是OFFICE2016

我的WPS不行，，，所以没法帮你了
你的可以，，去VBA版块问下

quqiyuan

当然vba也可以，PQ更方便啦，点刷新就可以了

quqiyuan

下面用的vba写的，需要点击的，因为access变动，Excel不知道啊，这个是没有办法，难道Excel要实时监控数据库，这个比较高深了，不懂了

quqiyuan

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

dtyghw

quqiyuan 发表于 2024-11-24 18:01
下面用的vba写的，需要点击的，因为access变动，Excel不知道啊，这个是没有办法，难道Excel要实时监控数据 ...

谢谢老师的指导。

dtyghw

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

谢谢老师的指导。

autohotey

可以写一个定时器，隔一段时间就去刷新同步一遍。但负载高，说实话没必要，又不是需要很实时的数据，人为刷新也是可以的。