用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