Excel VBA 使用 SQL 获取记录总数

在 Excel VBA 中，您可以利用 ADO 对象库执行 SQL 查询并获取数据库表的记录总数。以下代码示例演示了如何使用 Excel VBA 从数据库中检索记录总数：

Sub GetRecordCount()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim recordCount As Long
    
    ' 创建连接对象
    Set conn = CreateObject('ADODB.Connection')
    
    ' 设置数据库连接字符串
    conn.ConnectionString = 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;'
    
    ' 打开连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject('ADODB.Recordset')
    
    ' 设置 SQL 查询语句
    sql = 'SELECT COUNT(*) FROM TableName'
    
    ' 执行查询
    rs.Open sql, conn
    
    ' 检查是否有记录
    If Not rs.EOF Then
        ' 获取记录数量
        recordCount = rs.Fields(0).Value
        MsgBox '记录数量为: ' & recordCount
    Else
        MsgBox '没有找到记录.'
    End If
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
End Sub

请注意，上述代码中的数据库连接字符串需要根据实际情况进行更改。您需要将 'Data Source' 替换为您的数据库文件路径和名称。

在上述代码中，我们创建了一个连接对象和记录集对象，然后执行了 SQL 查询并获取了记录总数。最后，我们将记录总数显示在一个消息框中。您可以将 'TableName' 替换为您要查询的表的名称。

希望这可以帮助到您！如果您有任何进一步的问题，请随时提问。