资源描述：
《VBA将Excel中的数据导入数据库.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、将Excel中的数据导入到Access中，前提是在Access中的表已经建好。dimconndimconn2setconn=CreateObject("ADODB.Connection")conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassWord=;DataSource=c:book1.mdb"setconn2=CreateObject("ADODB.Connection")conn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetO
2、LEDB:DatabasePassword=;Extendedproperties=Excel5.0;DataSource=c:book1.xls"sql="SELECT*FROM[Sheet1$]"setrs=conn2.execute(sql)whilenotrs.eofsql="insertintoxxx([a],[b],[c],[d])values('"&fixsql(rs(0))&"','"&fixsql(rs(1))&"','"&fixsql(rs(2))&"','"&fixsql(rs(3))&"')"conn.execute(sq
3、l)rs.movenextwendconn.closesetconn=nothingconn2.closesetconn2=nothingfunctionfixsql(str)dimnewstrnewstr=strifisnull(newstr)thennewstr=""elsenewstr=replace(newstr,"'","''")endiffixsql=newstrendfunction导入到SqlServer数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序
4、会自己动建表，用Excel中的第一行数据做为表的字段名）：dimconnsetconn=CreateObject("ADODB.Connection")conn.Open("driver={SQLServer};server=localhost;uid=sa;pwd=sa;database=hwtemp;")sql="SELECT*intonewtableFROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource=""c:book1.xls"";UserID=Admin;Password=;E
5、xtendedproperties=Excel5.0')...[Sheet1$]"conn.execute(sql)conn.closesetconn=nothing另一个例子：SubMacro1()''Macro1Macro'宏由hgd录制，时间:2006-7-21''快捷键:Ctrl+z''Subshangpingzu()------连接SQL数据库Setx=CreateObject("adodb.connection")Sety=CreateObject("adodb.recordset")Application.DisplayAlerts=
6、FalseApplication.CutCopyMode=Falsex.Open"DSN=a;Uid=sa;Pwd=;"'DimxxAsString'DimyyAsString'DimiAsInteger'Fori=2ToSheets(1).Rows(65536).End(xlUp).Row'xx=Sheets(1).Cells(i,1)'yy=Sheets(1).Cells(i,2)'xx=Sheets(1).Rows(65536).End(xlUp).Row'yy=Sheets(1).Cells(1,255).End(xlToLeft).Col
7、umn'Sheets(1).Cells(2,3)=xx'Sheets(1).Cells(2,4)=yySql="insertintobookvalues('"&Sheets(1).Cells(i,1)&"'"Forj=2ToSheets(1).Cells(1,255).End(xlToLeft).ColumnSql=Sql&",'"&Sheets(1).Cells(i,j)&"'"NextjSql=Sql&")"'&xx&","&yy&")"Sety=x.Execute(Sql)'NextiEndSub
