28,391
社区成员
发帖
与我相关
我的任务
分享excel导入到access中，如何去掉excel的表头
我的excel文件，第一行是公司名称，第二行是日期，第三行是数据标题，第四行才是真正的数据，导入的时候，如何指定从第四行开始，谢谢！！
上面是代码，请问改如何修改下，谢谢 （fixsql是数据格式化函数）
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 8.0;Data Source="&kqfile
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into HR_KAOQIN(yId,ctyear,ctmonth,Ctsjcq,Ctgx,Ctyx,Ctcc,Ctsj,Ctbj,Ctjb,Ctkg,Ctcd,Ctzt,Ctjxkh,Ctyjxkh,Ctbz,managerid) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"','"& fixsql(rs(4)) &"','"& fixsql(rs(5)) &"','"& fixsql(rs(6)) &"','"& fixsql(rs(7)) &"','"& fixsql(rs(8)) &"','"& fixsql(rs(9)) &"','"& fixsql(rs(10)) &"','"& fixsql(rs(11)) &"','"& fixsql(rs(12)) &"','"& fixsql(rs(13)) &"','"& fixsql(rs(14)) &"','"& fixsql(rs(15)) &"','"& fixsql(rs(16)) &"','"& manaid &"')"
conn.execute(sql)
rs.movenext
wend
上面是代码，请问改如何修改下，谢谢 （fixsql是数据格式化函数）
...全文
请发表友善的回复…
发表回复
csdn_aspnet 2014-09-16
- 打赏
- 举报
'读取x行y列
set Conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("1.xls")+";Extended Properties='Excel 8.0;HDR=no;IMEX=1'"
Conn.Open strConn
sql="SELECT * FROM [data$]"
rs.Open sql,Conn,1,1
if not rs.eof then
rs.move x
response.Write rs(y-1)
end if
rs.Close
Conn.Close
set rs = Nothing
set Conn = Nothing
