本篇内容主要讲解“SQL导入和导出Excel数据的语句”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“SQL导入和导出Excel数据的语句”吧!

--从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:/*===================================================================*/--如果接受数据导入的表已经存在insertinto表select*fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)--如果导入数据并生成表select*into表fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)/*===================================================================*/--如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头,就可以简单的用:insertintoOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)select*from表--如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写:--导出表的情况EXECmaster..xp_cmdshell'bcp数据库名.dbo.表名out"c:\test.xls"/c-/S"服务器名"/U"用户名"-P"密码"'--导出查询的情况EXECmaster..xp_cmdshell'bcp"SELECTau_fname,au_lnameFROMpubs..authorsORDERBYau_lname"queryout"c:\test.xls"/c-/S"服务器名"/U"用户名"-P"密码"'/*--说明:c:\test.xls为导入/导出的Excel文件名.sheet1$为Excel文件的工作表名,一般要加上$才能正常使用.--*/--下面是导出真正Excel文件的方法:ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[p_exporttb]')andOBJECTPROPERTY(id,N'IsProcedure')=1)dropprocedure[dbo].[p_exporttb]GO/*--数据导出EXCEL导出表中的数据到Excel,包含字段名,文件为真正的Excel文件,如果文件不存在,将自动创建文件,如果表不存在,将自动创建表基于通用性考虑,仅支持导出标准数据类型--邹建2003.10(引用请保留此信息)--*//*--调用示例p_exporttb@tbname='地区资料',@path='c:\',@fname='aa.xls'--*/createprocp_exporttb@tbnamesysname,--要导出的表名@pathnvarchar(1000),--文件存放目录@fnamenvarchar(250)=''--文件名,默认为表名asdeclare@errint,@srcnvarchar(255),@descnvarchar(255),@outintdeclare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)--参数检测ifisnull(@fname,'')=''set@fname=@tbname+'.xls'--检查文件是否已经存在ifright(@path,1)<>'\'set@path=@path+'\'createtable#tb(abit,bbit,cbit)set@sql=@path+@fnameinsertinto#tbexecmaster..xp_fileexist@sql--数据库创建语句set@sql=@path+@fnameifexists(select1from#tbwherea=1)set@constr='DRIVER={MicrosoftExcelDriver(*.xls)};DSN='''';READONLY=FALSE'+';CREATE_DB="'+@sql+'";DBQ='+@sqlelseset@constr='Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties="Excel8.0;HDR=YES'+';DATABASE='+@sql+'"'--连接数据库exec@err=sp_oacreate'adodb.connection',@objoutif@err<>0gotolberrexec@err=sp_oamethod@obj,'open',null,@constrif@err<>0gotolberr/*--如果覆盖已经存在的表,就加上下面的语句--创建之前先删除表/如果存在的话select@sql='droptable['+@tbname+']'exec@err=sp_oamethod@obj,'execute',@outout,@sql--*/--创建表的SQLselect@sql='',@fdlist=''select@fdlist=@fdlist+',['+a.name+']',@sql=@sql+',['+a.name+']'+casewhenb.namelike'%char'thencasewhena.length>255then'memo'else'text('+cast(a.lengthasvarchar)+')'endwhenb.namelike'%int'orb.name='bit'then'int'whenb.namelike'%datetime'then'datetime'whenb.namelike'%money'then'money'whenb.namelike'%text'then'memo'elseb.nameendFROMsyscolumnsaleftjoinsystypesbona.xtype=b.xusertypewhereb.namenotin('image','uniqueidentifier','sql_variant','varbinary','binary','timestamp')andobject_id(@tbname)=idselect@sql='createtable['+@tbname+']('+substring(@sql,2,8000)+')',@fdlist=substring(@fdlist,2,8000)exec@err=sp_oamethod@obj,'execute',@outout,@sqlif@err<>0gotolberrexec@err=sp_oadestroy@obj--导入数据set@sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel8.0;HDR=YES;IMEX=1;DATABASE='+@path+@fname+''',['+@tbname+'$])'exec('insertinto'+@sql+'('+@fdlist+')select'+@fdlist+'from'+@tbname)returnlberr:execsp_oageterrorinfo0,@srcout,@descoutlbexit:selectcast(@errasvarbinary(4))as错误号,@srcas错误源,@descas错误描述select@sql,@constr,@fdlistgoifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[p_exporttb]')andOBJECTPROPERTY(id,N'IsProcedure')=1)dropprocedure[dbo].[p_exporttb]GO/*--数据导出EXCEL导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件如果文件不存在,将自动创建文件如果表不存在,将自动创建表基于通用性考虑,仅支持导出标准数据类型--邹建2003.10(引用请保留此信息)--*//*--调用示例p_exporttb@sqlstr='select*from地区资料',@path='c:\',@fname='aa.xls',@sheetname='地区资料'--*/createprocp_exporttb@sqlstrvarchar(8000),--查询语句,如果查询语句中使用了orderby,请加上top100percent@pathnvarchar(1000),--文件存放目录@fnamenvarchar(250),--文件名@sheetnamevarchar(250)=''--要创建的工作表名,默认为文件名asdeclare@errint,@srcnvarchar(255),@descnvarchar(255),@outintdeclare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)--参数检测ifisnull(@fname,'')=''set@fname='temp.xls'ifisnull(@sheetname,'')=''set@sheetname=replace(@fname,'.','#')--检查文件是否已经存在ifright(@path,1)<>'\'set@path=@path+'\'createtable#tb(abit,bbit,cbit)set@sql=@path+@fnameinsertinto#tbexecmaster..xp_fileexist@sql--数据库创建语句set@sql=@path+@fnameifexists(select1from#tbwherea=1)set@constr='DRIVER={MicrosoftExcelDriver(*.xls)};DSN='''';READONLY=FALSE'+';CREATE_DB="'+@sql+'";DBQ='+@sqlelseset@constr='Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties="Excel8.0;HDR=YES'+';DATABASE='+@sql+'"'--连接数据库exec@err=sp_oacreate'adodb.connection',@objoutif@err<>0gotolberrexec@err=sp_oamethod@obj,'open',null,@constrif@err<>0gotolberr--创建表的SQLdeclare@tbnamesysnameset@tbname='##tmp_'+convert(varchar(38),newid())set@sql='select*into['+@tbname+']from('+@sqlstr+')a'exec(@sql)select@sql='',@fdlist=''select@fdlist=@fdlist+',['+a.name+']',@sql=@sql+',['+a.name+']'+casewhenb.namelike'%char'thencasewhena.length>255then'memo'else'text('+cast(a.lengthasvarchar)+')'endwhenb.namelike'%int'orb.name='bit'then'int'whenb.namelike'%datetime'then'datetime'whenb.namelike'%money'then'money'whenb.namelike'%text'then'memo'elseb.nameendFROMtempdb..syscolumnsaleftjointempdb..systypesbona.xtype=b.xusertypewhereb.namenotin('image','uniqueidentifier','sql_variant','varbinary','binary','timestamp')anda.id=(selectidfromtempdb..sysobjectswherename=@tbname)if@@rowcount=0returnselect@sql='createtable['+@sheetname+']('+substring(@sql,2,8000)+')',@fdlist=substring(@fdlist,2,8000)exec@err=sp_oamethod@obj,'execute',@outout,@sqlif@err<>0gotolberrexec@err=sp_oadestroy@obj--导入数据set@sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel8.0;HDR=YES;DATABASE='+@path+@fname+''',['+@sheetname+'$])'exec('insertinto'+@sql+'('+@fdlist+')select'+@fdlist+'from['+@tbname+']')set@sql='droptable['+@tbname+']'exec(@sql)returnlberr:execsp_oageterrorinfo0,@srcout,@descoutlbexit:selectcast(@errasvarbinary(4))as错误号,@srcas错误源,@descas错误描述select@sql,@constr,@fdlistgodeclare@tbnamesysname--要导出的表名,注意只能是表名/视图名declare@pathnvarchar(1000)--文件存放目录declare@fnamenvarchar(250)--文件名,默认为表名set@tbname='salaryreports'set@path='e:\'set@fname='salaryreportsxls'declare@errint,@srcnvarchar(255),@descnvarchar(255),@outintdeclare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)--参数检测ifisnull(@fname,'')=''set@fname=@tbname+'.xls'--droptable#tb--检查文件是否已经存在ifright(@path,1)<>'\'set@path=@path+'\'createtable#tb(abit,bbit,cbit)set@sql=@path+@fnameinsertinto#tbexecmaster..xp_fileexist@sql--select*from#tb--数据库创建语句set@sql=@path+@fnameifexists(select1from#tbwherea=1)set@constr='DRIVER={MicrosoftExcelDriver(*.xls)};DSN='''';READONLY=FALSE'+';CREATE_DB="'+@sql+'";DBQ='+@sqlelseset@constr='Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties="Excel5.0;HDR=YES'+';DATABASE='+@sql+'"'--连接数据库exec@err=sp_oacreate'adodb.connection',@objoutif@err<>0gotolberrexec@err=sp_oamethod@obj,'open',null,@constrif@err<>0gotolberr--创建表的SQLselect@sql='',@fdlist=''select@fdlist=@fdlist+','+a.name,@sql=@sql+',['+a.name+']'+casewhenb.namein('char','nchar','varchar','nvarchar')then'text('+cast(casewhena.length>255then255elsea.lengthendasvarchar)+')'whenb.namein('tynyint','int','bigint','tinyint')then'int'whenb.namein('smalldatetime','datetime')then'datetime'whenb.namein('money','smallmoney')then'money'elseb.nameendFROMsyscolumnsaleftjoinsystypesbona.xtype=b.xusertypewhereb.namenotin('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')andobject_id(@tbname)=idselect@sql='createtable['+@tbname+']('+substring(@sql,2,8000)+')',@fdlist=substring(@fdlist,2,8000)exec@err=sp_oamethod@obj,'execute',@outout,@sqlif@err<>0gotolberrexec@err=sp_oadestroy@obj--导入数据set@sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel5.0;HDR=YES;DATABASE='+@path+@fname+''',['+@tbname+'$])'exec('insertinto'+@sql+'('+@fdlist+')select'+@fdlist+'from'+@tbname)returnlberr:execsp_oageterrorinfo0,@srcout,@descoutlbexit:selectcast(@errasvarbinary(4))as错误号,@srcas错误源,@descas错误描述select@sql,@constr,@fdlist

到此，相信大家对“SQL导入和导出Excel数据的语句”有了更深的了解，不妨来实际操作一番吧！这里是亿速云网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！