如何用Access VBA将excel文件中的数据追加到ODBC中？

Sub AppendExcelDataToODBC()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strExcelFilePath As String
    Dim strODBCConnectionString As String
    
    ' 设置Excel文件路径
    strExcelFilePath = "C:\path\to\your\excel_file.xlsx"
    
    ' 设置ODBC连接字符串
    strODBCConnectionString = "ODBC;DRIVER={your_driver};SERVER={your_server};DATABASE={your_database};UID={your_username};PWD={your_password}"
    
    ' 创建ODBC连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开ODBC连接
    conn.Open strODBCConnectionString
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置SQL语句，用于将Excel数据追加到ODBC中
    strSQL = "INSERT INTO your_table_name (column1, column2, column3) SELECT field1, field2, field3 FROM [Excel 12.0 Xml;HDR=YES;Database=" & strExcelFilePath & "].[Sheet1$]"
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭记录集
    rs.Close
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "Excel数据已成功追加到ODBC中。"
End Sub