一个Excel导入到Access的实例

一个Excel导入到Access的实例

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；