用excel vba，将EXCEL数据追加到ACCESS数据库的某张表中的实例（学习备注）

Sub test_excelToAccess()
    Dim strFile As String
    Dim dbData As DAO.Database
    Dim appNew As Access.Application '需要引用access lib,也可通过createobject创建access application
    Dim strSql As String
    docmd.SetWarnings (False)
    Set appNew = New Access.Application
    strFile = 'C:\Users\smc8236\Desktop\新报价程序.accdb'
    appNew.OpenCurrentDatabase (strFile)
    strSql = 'insert into sheet1(a,b,c,d) ' _
                  & 'select * from [Excel 12.0;Database=D:\3.xlsx].[Sheet1$]'
    appNew.docmd.runsql strSql
    docmd.SetWarnings (True)
    MsgBox 'That's OK!'
    appNew.CloseCurrentDatabase
    Set appNew = Nothing
End Sub