Excel根据单元格内容提取access数据

可以使用ADO连接Access数据库，然后使用SQL语句查询数据并将结果导出到Excel中。以下是一个示例代码：

Sub ExportData()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    Dim j As Integer
    
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    '连接Access数据库
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\test.accdb"
    
    '查询数据
    strSQL = "SELECT * FROM table1 WHERE column1='value1'"
    rs.Open strSQL, conn
    
    '将数据导出到Excel
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i
    
    For i = 0 To rs.RecordCount - 1
        For j = 0 To rs.Fields.Count - 1
            Cells(i + 2, j + 1).Value = rs.Fields(j).Value
        Next j
        rs.MoveNext
    Next i
    
    '关闭连接
    rs.Close
    conn.Close
End Sub