excel导入到access中，如何去掉excel的表头

fangsky 2014-09-15 02:36:18

我的excel文件，第一行是公司名称，第二行是日期，第三行是数据标题，第四行才是真正的数据，导入的时候，如何指定从第四行开始，谢谢！！



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是数据格式化函数）

...全文

412 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

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