Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb") ‘ 这里是你数据库的路径
dbs.Execute "SELECT *
INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "
’在校学生是你要导入的数据库中的表名,App.Path & "\MyExcel.xls].[WorkSheet1]是你要进行导入的excel的路径worksheet1是excel里工作簿的名
dbs.Close
Set dbs = Nothing