帮忙排查一个错误

aihu1126

这个excel文件是从一个考勤系统上导出的.
我需要前七列数据,进行计算.
我在网上找了一段代码胡乱改了一下,结果出现了错误.
由于自己水平太低,排查不了这个错误,所以发贴求助.
希望能得到大家的帮助,谢谢各位了.

aihu1126

己解决,不用回了,谢谢.

aslxt

把你的代码修改如下:
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=" & 文件路径 & "].[2013年1月份考勤记录$]"
Debug.Print strSQL
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True '开启提示
End Sub

aihu1126

aslxt 发表于 2013-6-5 17:29
把你的代码修改如下:
Private Sub Command1_Click() '从EXCEL上导入考勤信息
Dim 文件路径 As String

谢谢您了!