excel里vba 获取access表的行数

您可以使用以下代码获取Access表的行数并在Excel中显示：

Sub GetAccessTableRowCount()
    Dim conn As Object
    Dim rs As Object
    Dim rowCount As Long

    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")

    ' 打开Access数据库连接
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=您的Access数据库路径"

    ' 执行SQL查询
    Set rs = conn.Execute("SELECT COUNT(*) FROM 您的表名")

    ' 获取查询结果
    rowCount = rs(0)

    ' 显示行数
    MsgBox "行数为：" & rowCount

    ' 关闭连接和记录集
    rs.Close
    conn.Close
End Sub

在上面的代码中，我们使用ADODB对象（Microsoft ActiveX Data Objects）创建连接对象，并使用Execute方法执行SQL查询，获取Access表的行数。最后，关闭连接和记录集。您可以根据需要修改代码中的Access数据库路径和表名。