excel与access数据交互vba代码

以下是Excel VBA代码示例，用于将Access表格导入到Excel中：

Sub ImportAccessTable()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    Dim i As Integer
    
    '连接Access数据库
    Set conn = CreateObject("ADODB.Connection")
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyDB.accdb;Persist Security Info=False;"
    conn.Open strConn
    
    '执行SQL查询语句
    strSQL = "SELECT * FROM MyTable"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, conn, 1, 3
    
    '将结果集导入Excel工作表
    For i = 0 To rs.Fields.Count - 1
        Worksheets("Sheet1").Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i
    Worksheets("Sheet1").Range("A2").CopyFromRecordset rs
    
    '释放资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

以上代码中，需要根据实际情况修改连接Access数据库的字符串`strConn`和SQL查询语句`strSQL`，以及将结果集导入Excel工作表的代码。

类似地，可以编写将Excel数据导入到Access表格的VBA代码，关键是修改连接Access数据库的字符串和SQL插入语句等代码。