Office中国论坛/Access中国论坛

标题: 帮忙排查一个错误 [打印本页]

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

作者: aihu1126 时间: 2013-6-5 17:08
己解决,不用回了,谢谢.

作者: aslxt 时间: 2013-6-5 17:29
把你的代码修改如下:
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 时间: 2013-6-7 13:54

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

谢谢您了!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)