将Excel中的数据导入到Access中，前提是在Access中的表已经建好，
Excel数据导入到Access,Sql Server中示例代码
。dim conndim conn2set conn=CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"
set conn2=CreateObject("ADODB.Connection")conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"
sql = "SELECT * FROM [Sheet1$]" set rs = conn2.execute(sql)while not rs.eofsql = "insert into xxx([a],[b],[c],[d]) values('" fixsql(rs(0)) "','" fixsql(rs(1)) "','" fixsql(rs(2)) "','" fixsql(rs(3)) "')"conn.execute(sql)rs.movenextwend
conn.closeset conn = nothingconn2.closeset conn2 = nothing
function fixsql(str)dim newstrnewstr = strif isnull(newstr) then newstr = ""else newstr = replace(newstr,"'","''")end iffixsql = newstrend function
导入到sql server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码，
电脑资料
《Excel数据导入到Access,Sql Server中示例代码》(http://meiwen.anslib.com)。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）：dim connset conn=CreateObject("ADODB.Connection")conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")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$] " conn.execute(sql)
conn.closeset conn = nothing
选择自 sxycgxj 的 Blog