導出SQLServer數據到Excel文件中

目前主要提到了三種辦法，一種在程序中調用DTS，二種使用SQL SERVER帶的BCP功能，三種使用openrowset。
具體看下面：
這是利用BCP來作的，

使用SQLServer自帶的bcp命令——
bcp 數據庫名.dbo.表名 out 文件名 –c –q –S」服務器名」 –U」用戶名」 –P」密碼」

bcp 」select 語句」 queryout 文件名 –c –q –S」服務器名」 –U」用戶名」 –P」密碼」

導出整張表：
EXEC master..xp_cmdshell 'bcp "inter_custom.dbo.out_ck1" out c:\Temp.xls -c -q -S"PETER" -U"sa" -P"davey@citiz.net"'

根據Query語句導出：
EXEC master..xp_cmdshell 'bcp "select * from inter_custom.dbo.out_ck1" queryout c:\Temp.xls -c -q -S"PETER" -U"sa" -P"davey@citiz.net"'
利用bcp要求數據庫的服務器名，數據庫用戶名和密碼，這些必須傳到程序中。方法能夠有不少中，大概的例子，能夠看：
http://www.cnblogs.com/kevin/archive/2004/09/21/45351.html

利用openrowset能夠寫存儲過程，能夠看下面的例子
引自CSDN的鄒建大大

 

if   exists  ( select   *   from  dbo.sysobjects  where  id  =   object_id (N ' [dbo].[p_exporttb] ' )  and   OBJECTPROPERTY (id, N ' IsProcedure ' )  =   1 )
drop   procedure   [ dbo ] . [ p_exporttb ]
GO

/* --數據導出EXCEL

導出查詢中的數據到Excel,包含字段名,文件爲真正的Excel文件
若是文件不存在,將自動建立文件
若是表不存在,將自動建立表
基於通用性考慮,僅支持導出標準數據類型

--鄒建 2003.10(引用請保留此信息)-- */

/* --調用示例

p_exporttb @sqlstr='select * from 地區資料'
,@path='c:\',@fname='aa.xls',@sheetname='地區資料'
-- */
create   proc  p_exporttb
@sqlstr   varchar ( 8000 ), -- 查詢語句,若是查詢語句中使用了order by ,請加上top 100 percent
@path   nvarchar ( 1000 ), -- 文件存放目錄
@fname   nvarchar ( 250 ), -- 文件名
@sheetname   varchar ( 250 ) = '' -- 要建立的工做表名,默認爲文件名
as
declare   @err   int , @src   nvarchar ( 255 ), @desc   nvarchar ( 255 ), @out   int
declare   @obj   int , @constr   nvarchar ( 1000 ), @sql   varchar ( 8000 ), @fdlist   varchar ( 8000 )

-- 參數檢測
if   isnull ( @fname , '' ) = '' set   @fname = ' temp.xls '
if   isnull ( @sheetname , '' ) = ''   set   @sheetname = replace ( @fname , ' . ' , ' # ' )

-- 檢查文件是否已經存在
if   right ( @path , 1 ) <> ' \ '   set   @path = @path + ' \ '
create   table  #tb(a  bit ,b  bit ,c  bit )
set   @sql = @path + @fname
insert   into  #tb  exec  master..xp_fileexist  @sql

-- 數據庫建立語句
set   @sql = @path + @fname
if   exists ( select   1   from  #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 <> 0   goto  lberr

exec   @err = sp_oamethod  @obj , ' open ' , null , @constr
if   @err <> 0   goto  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 '
then   case   when  a.length > 255   then   ' memo '
else   ' text( ' + cast (a.length  as   varchar ) + ' ) '   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  left   join  tempdb..systypes b  on  a.xtype = b.xusertype
where  b.name  not   in ( ' p_w_picpath ' , ' uniqueidentifier ' , ' sql_variant ' , ' varbinary ' , ' binary ' , ' timestamp ' )
and  a.id = ( select  id  from  tempdb..sysobjects  where  name = @tbname )

if   @@rowcount = 0   return

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 <> 0   goto  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:
select   cast ( @err   as   varbinary ( 4 ))  as  錯誤號
, @src   as  錯誤源, @desc   as  錯誤描述
select   @sql , @constr , @fdlist
go

從DataGrids中導出數據到Excel

DataSet結果導出到Excel

Export DataSets to Excel...

導出到Excel的四種方法

關於從net程序如何導出到excel微軟的msdn有專門的講述，在上面能夠搜到