Excel导入到Access,Sql Server中示例代码

将excel中的数据导入到access中，前提是在Access中的表已经建好。60m中国设计秀

dim conn60m中国设计秀
dim conn260m中国设计秀
set conn=CreateObject("ADODB.Connection")60m中国设计秀
conn.Open "PRovider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:book1.mdb"60m中国设计秀

set conn2=CreateObject("ADODB.Connection")60m中国设计秀
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=excel 5.0;Data Source=c:book1.xls"60m中国设计秀

60m中国设计秀
sql = "SELECT * FROM [Sheet1$]" 60m中国设计秀
set rs = conn2.execute(sql)60m中国设计秀
while not rs.eof60m中国设计秀
 sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"60m中国设计秀
 conn.execute(sql)60m中国设计秀
 rs.movenext60m中国设计秀
wend60m中国设计秀

conn.close60m中国设计秀
set conn = nothing60m中国设计秀
conn2.close60m中国设计秀
set conn2 = nothing60m中国设计秀

function fixsql(str)60m中国设计秀
 dim newstr60m中国设计秀
 newstr = str60m中国设计秀
 if isnull(newstr) then60m中国设计秀
  newstr = ""60m中国设计秀
 else60m中国设计秀
  newstr = replace(newstr,"'","''")60m中国设计秀
 end if60m中国设计秀
 fixsql = newstr60m中国设计秀
end function60m中国设计秀

导入到Sql Server数据库中时，如果excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用excel中的第一行数据做为表的字段名）：60m中国设计秀

dim conn60m中国设计秀
set conn=CreateObject("ADODB.Connection")60m中国设计秀
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")60m中国设计秀
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";User ID=Admin;Password=;Extended properties=excel 5.0')...[Sheet1$] " 60m中国设计秀
conn.execute(sql)60m中国设计秀

conn.close60m中国设计秀
set conn = nothing60m中国设计秀

选择自 sxycgxj 的 Blog60m中国设计秀