1、在SQL数据库中直接从Excel里面查询数据：
select \* from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$) 2、从Excel文件中,导入数据到SQL数据库中,
select \* into 表 from
 OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
 ,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$) 3、从SQL数据库中,导出数据到Excel(excel存在),
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
 ,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$)
 select \* from 表 4、从SQL数据库中,导出数据到Excel(excel不存在),
\---- 导出表
EXEC master..xp\_cmdshell 'bcp 数据库名.dbo.表名 out "c: est.xls" /c -/S"服务器名" /U"用户名" -P"密码"'
---- 导出查询语句
EXEC master..xp\_cmdshell 'bcp "SELECT au\_fname, au\_lname FROM pubs..authors ORDER BY au\_lname" queryout "c: est.xls" /c -/S"服务器名" /U"用户名" -P"密码"' 5、导入导出的存储过程
\--下面是导出真正Excel文件的方法:（请将一下所有代码复制到存储过程中）
ifexists (select\*from dbo.sysobjects where id \=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'
\--\*/
createproc p\_exporttb
@tbname sysname, \--要导出的表名
@pathnvarchar(1000), \--文件存放目录
@fnamenvarchar(250)\=''\--文件名,默认为表名
as
declare@errint,@srcnvarchar(255),@descnvarchar(255),@outint
declare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)
\--参数检测
ifisnull(@fname,'')\=''set@fname\=@tbname+'.xls'
\--检查文件是否已经存在
ifright(@path,1)<>''set@path\=@path+''
createtable #tb(a bit,b bit,c bit)
set@sql\=@path+@fname
insertinto #tb exec master..xp\_fileexist @sql
\--数据库创建语句
set@sql\=@path+@fname
ifexists(select1from #tb where a\=1)
 set@constr\='DRIVER={Microsoft Excel Driver (\*.xls)};DSN='''';READONLY=FALSE'
 +';CREATE\_DB="'+@sql+'";DBQ='+@sql
else
 set@constr\='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
 +';DATABASE='+@sql+'"'
\--连接数据库
exec@err\=sp\_oacreate 'adodb.connection',@obj out
if@err<>0goto lberr
exec@err\=sp\_oamethod @obj,'open',null,@constr
if@err<>0goto lberr
/\*\--如果覆盖已经存在的表,就加上下面的语句
\--创建之前先删除表/如果存在的话
select @sql='drop table \['+@tbname+'\]'
exec @err=sp\_oamethod @obj,'execute',@out out,@sql
\--\*/
\--创建表的SQL
select@sql\='',@fdlist\=''
select@fdlist\=@fdlist+',\['+a.name+'\]'
 ,@sql\=@sql+',\['+a.name+'\] '
 +case
 when b.name like'%char'
 thencasewhen a.length\>255then'memo'
 else'text('+cast(a.length asvarchar)+')'end
 when b.name like'%int'or b.name\='bit'then'int'
 when b.name like'%datetime'then'datetime'
 when b.name like'%money'then'money'
 when b.name like'%text'then'memo'
 else b.name end
FROM syscolumns a leftjoin systypes b on a.xtype\=b.xusertype
where b.name notin('image','uniqueidentifier','sql\_variant','varbinary','binary','timestamp')
 andobject\_id(@tbname)\=id
select@sql\='create table \['+@tbname
 +'\]('+substring(@sql,2,8000)+')'
 ,@fdlist\=substring(@fdlist,2,8000)
exec@err\=sp\_oamethod @obj,'execute',@out out,@sql
if@err<>0goto lberr
exec@err\=sp\_oadestroy @obj
\--导入数据
set@sql\='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES;IMEX=1
 ;DATABASE='+@path+@fname+''',\['+@tbname+'$\])'
exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)
return
lberr:
 exec sp\_oageterrorinfo 0,@src out,@desc out
lbexit:
 selectcast(@errasvarbinary(4)) as 错误号
 ,@srcas 错误源,@descas 错误描述
 select@sql,@constr,@fdlist
go
ifexists (select\*from dbo.sysobjects where id \=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='地区资料'
\--\*/
createproc p\_exporttb
@sqlstrvarchar(8000), \--查询语句,如果查询语句中使用了order by ,请加上top 100 percent
@pathnvarchar(1000), \--文件存放目录
@fnamenvarchar(250), \--文件名
@sheetnamevarchar(250)\=''\--要创建的工作表名,默认为文件名
as
declare@errint,@srcnvarchar(255),@descnvarchar(255),@outint
declare@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(a bit,b bit,c bit)
set@sql\=@path+@fname
insertinto #tb exec master..xp\_fileexist @sql
\--数据库创建语句
set@sql\=@path+@fname
ifexists(select1from #tb where a\=1)
 set@constr\='DRIVER={Microsoft Excel Driver (\*.xls)};DSN='''';READONLY=FALSE'
 +';CREATE\_DB="'+@sql+'";DBQ='+@sql
else
 set@constr\='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
 +';DATABASE='+@sql+'"'
\--连接数据库
exec@err\=sp\_oacreate 'adodb.connection',@obj out
if@err<>0goto lberr
exec@err\=sp\_oamethod @obj,'open',null,@constr
if@err<>0goto lberr
\--创建表的SQL
declare@tbname sysname
set@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+'\] '
 +case
 when b.name like'%char'
 thencasewhen a.length\>255then'memo'
 else'text('+cast(a.length asvarchar)+')'end
 when b.name like'%int'or b.name\='bit'then'int'
 when b.name like'%datetime'then'datetime'
 when b.name like'%money'then'money'
 when b.name like'%text'then'memo'
 else b.name end
FROM tempdb..syscolumns a leftjoin tempdb..systypes b on a.xtype\=b.xusertype
where b.name notin('image','uniqueidentifier','sql\_variant','varbinary','binary','timestamp')
 and a.id\=(select id from tempdb..sysobjects where name\=@tbname)
if@@rowcount\=0return
select@sql\='create table \['+@sheetname
 +'\]('+substring(@sql,2,8000)+')'
 ,@fdlist\=substring(@fdlist,2,8000)
exec@err\=sp\_oamethod @obj,'execute',@out out,@sql
if@err<>0goto lberr
exec@err\=sp\_oadestroy @obj
\--导入数据
set@sql\='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES
 ;DATABASE='+@path+@fname+''',\['+@sheetname+'$\])'
exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from \['+@tbname+'\]')
set@sql\='drop table \['+@tbname+'\]'
exec(@sql)
return
lberr:
 exec sp\_oageterrorinfo 0,@src out,@desc out
lbexit:
 selectcast(@errasvarbinary(4)) as 错误号
 ,@srcas 错误源,@descas 错误描述
 select@sql,@constr,@fdlist
go