excel里vba 获取access表，一列中值为A的数量

可以通过以下[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)来实现： ```VBA Dim db As DAO.Database Dim rst As DAO.Recordset Dim countA As Integer Set db = OpenDatabase("路径/数据库名称.accdb") Set rst = db.OpenRecordset("表名") Do While Not rst.EOF If rst("列名") = "A" Then countA = countA + 1 End If rst.[move](https://geek.csdn.net/educolumn/1017fe3bbe75a8f0c3f4fe48f3af73ee?spm=1055.2569.3001.10083)Next rst.Close db.Close MsgBox "值为A的数量为：" & countA 需要注意的是，需在[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)中替换路径、数据库名称、表名和列名为实际对应的值。另外，需要在VBA的引用中[添加](https://geek.csdn.net/educolumn/4d4bec229f163522438e69abc8681710?spm=1055.2569.3001.10083)Microsoft DAO 3.6 Object [libra](https://geek.csdn.net/educolumn/2967458edd03b90a6c9b82344e5cfa43?spm=1055.2569.3001.10083)ry。