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
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