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

可以通过以下代码来实现：

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.MoveNext
Loop

rst.Close
db.Close

MsgBox "值为A的数量为：" & countA

需要注意的是，需在代码中替换路径、数据库名称、表名和列名为实际对应的值。另外，需要在VBA的引用中添加Microsoft DAO 3.6 Object Library。