下面小编要跟大家分享Excel数据导入到Access,Sql Server中示例代码，简单的过程中其实暗藏玄机，还是要细心学习，喜欢还请记得收藏哦！
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。
dim conn
dim conn2
set conn=CreateObject("")
"Provider= Password=;Data Source=c:ook1.mdb"
set conn2=CreateObject("")
"Provider= Password=;Extended properties=Excel 5.0;Data Source=c:ook1.xls"
sql = "SELECT * FROM [Sheet1$]"
set rs = ()
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
()
wend
set conn = nothing
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
导入到SqlServer数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）：
dim conn
set conn=CreateObject("")
("driver={SQLServer};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT* into newtable FROM OpenDataSource( '&#,&# Source=""c:"" ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "
()
set conn = nothing
选择自 sxycgxj 的 Blog
