vba连接数据库把表显示在excel中

您可以使用VBA编写代码来连接数据库并将表显示在Excel中。以下是一个示例代码，您可以根据自己的数据库和表格名称进行修改：

Sub DisplayTable()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strConn As String
    Dim i As Integer
    
    ' 设置数据库连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 设置SQL查询语句
    strSQL = "SELECT * FROM YourTable"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open strSQL, conn
    
    ' 将查询结果显示在Excel中
    For i = 1 To rs.Fields.Count
        Cells(1, i).Value = rs.Fields(i - 1).Name
    Next i
    
    Range("A2").CopyFromRecordset rs
    
    ' 关闭记录集和连接对象
    rs.Close
    conn.Close
    
    ' 释放对象内存
    Set rs = Nothing
    Set conn = Nothing

End Sub

请注意，您需要将`strConn`变量设置为适合您的数据库的连接字符串，以及将`strSQL`变量设置为适当的SQL查询语句。此示例使用Microsoft Access数据库作为示例。

通过运行`DisplayTable`子过程，它将连接到指定的数据库并将查询结果显示在当前活动的Excel工作表中。第一行将显示字段名称，后续行将显示记录数据。

请确保已安装与您的数据库类型相对应的数据库驱动程序，并将连接字符串中的文件路径和表名更改为适合您的情况。