刷新
一个Excel导入到Access的实例
发布日期：2010-6-8 10:14:43

Excel导入Access执行文件 xlstomdb.asp ，代码如下：

复制内容到剪贴板
  1. <%   
  2. dim conn,data   
  3. dim conn2,data2   
  4. data="data.mdb"  
  5. data2="data.xls"  
  6.   
  7. set conn=CreateObject("ADODB.Connection")   
  8. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)   
  9.   
  10. set conn2=CreateObject("ADODB.Connection")   
  11. conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended properties=Excel 5.0;Data Source=" & Server.MapPath(data2)   
  12.   
  13. sql = "SELECT * FROM [Sheet1$]"    
  14. set rs = conn2.execute(sql)   
  15. while not rs.eof   
  16.  sql = "insert into info([公司名称],[公司地址],[联系人],[电话],[传真]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"','"& fixsql(rs(4)) &"')"   
  17.  conn.execute(sql)   
  18.  rs.movenext   
  19. wend   
  20.   
  21. conn.close   
  22. set conn = nothing  
  23. conn2.close   
  24. set conn2 = nothing  
  25. Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>操作成功！</div>"   
  26.   
  27. function fixsql(str)   
  28.  dim newstr   
  29.  newstr = str   
  30.  if isnull(newstr) then   
  31.   newstr = ""  
  32.  else   
  33.   newstr = replace(newstr,"'","''")   
  34.  end if   
  35.  fixsql = newstr  
  36. end function   
  37. %>  

需要数据库data.mdb，表info；Excel文件data.xls；

附上实例下载：右键另存