不能更新,数据库对象为只读

点击下载此附件

目的:从excel上导入数据

excel是考勤系统导出一张表,我想把前7列的内容导入到access里面算工资

请大家帮我看看,这个问题能不能解决.

谢谢各位了.

Private Sub Command1_Click() '从EXCEL上导入考勤信息
Dim 文件路径 As String
文件路径 = Excel.Application.GetOpenFilename("Excel文件(*.xl*),*.xl*")
'MsgBox 文件路径
DoCmd.SetWarnings False '屏闭提示
Dim strSQL As String
strSQL = "insert into 考勤表(部门编号,部门名称,人员编号,人员名称,考勤日期,班次时间数据,刷卡时间数据) select 部门编号,部门名称,人员编号,人员名称,考勤日期,班次时间数据,刷卡时间数据 from [Excel 8.0;Database='" & 文件路径 & "'].[sheet1$]"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True '开启提示
End Sub
这是代码.