SQLServer2000把指定查询输出为Excel文件的存储过程

 

SET  QUOTED_IDENTIFIER  ON  
GO
SET  ANSI_NULLS  ON  
GO



ALTER     proc  stp_ExportTable
     @sqlstr   nvarchar ( 4000 ),         -- 查询语句,如果查询语句中使用了order by ,请加上top 100 percent,注意,如果导出表/视图,用上面的存储过程
     @orderstr   nvarchar ( 255 ),     -- Order by Field
     @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 ( 4000 ), @fdlist   varchar ( 8000 )
     declare   @IstmpTB   as   bit
     declare   @tmpsql    as   varchar ( 4000 )


     SET   @IstmpTB = 0
     -- 参数检测
     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 + ' " '



     -- 连接数据库
     -- print 'nn33'
     exec   @err = sp_oacreate  ' adodb.connection ' , @obj  out
     if   @err <> 0   goto  lberr
     -- print 'nn44'
     exec   @err = sp_oamethod  @obj , ' open ' , null , @constr
     if   @err <> 0   goto  lberr

     -- 构造temp表的SQL
     declare   @tbname  sysname
     set   @tbname = ' ##tmp_ ' + convert ( varchar ( 38 ), newid ())
     set   @sql = ' select * into [ ' + @tbname + ' ] from( ' + @sqlstr + ' ) a '
     -- print @sql
     exec ( @sql )
     set   @IstmpTB = 1
    
     select   @sql = '' , @fdlist = ''
     select   @fdlist = @fdlist + ' ,[ ' + a.name + ' ]  '
     , @sql = @sql + ' ,[ ' + a.name + ' ]  '
       + case   when  b.name  in ( ' char ' , ' nchar ' , ' varchar ' , ' nvarchar ' )  then
          ' text( ' + cast ( case   when  a.length > 255   then   255   else  a.length  end   as   varchar ) + ' ) '
        when  b.name  in ( ' bit ' , ' int ' , ' bigint ' , ' tinyint ' , ' smallint ' )  then   ' int '
        when  b.name  in ( ' smalldatetime ' , ' datetime ' )  then   ' datetime '
        when  b.name  in ( ' money ' , ' smallmoney ' )  then   ' money '
        else  b.name  end
     FROM  tempdb..syscolumns a  left   join  tempdb..systypes b  on  a.xtype = b.xusertype
     where  b.name  not   in ( ' image ' , ' text ' , ' uniqueidentifier ' , ' sql_variant ' , ' ntext ' , ' varbinary ' , ' binary ' , ' timestamp ' )
      and  a.id = ( select  id  from  tempdb..sysobjects  where  name = @tbname )
    
     select   @sql = substring ( @sql , 2 , 2000 ), @fdlist = substring ( @fdlist , 2 , 2000 )

     -- create table
     select   @sql = ' create table [ ' + @sheetname + ' ]( ' + @sql + ' ) '
     -- print @sql
     exec   @err = sp_oamethod  @obj , ' execute ' , @out  out, @sql
     if   @err <> 0   goto  lberr
     -- print 'nn'
     -- destroy ole object
     exec   @err = sp_oadestroy  @obj
     if   @err <> 0   goto  lberr
     -- print 'nn1'
     -- 导入数据
    
     set   @sql = ' openrowset( '' MICROSOFT.JET.OLEDB.4.0 '' , '' Excel 8.0;HDR=YES
       ;DATABASE= ' + @path + @fname + ''' ,[ ' + @sheetname + ' $]) '
    
     set   @tmpsql = ' insert into  ' + @sql + ' ( ' + @fdlist + ' ) select  ' + @fdlist + '  from [ ' + @tbname + ' ] '
     -- print @tmpsql
     if   @orderstr   is   not   null   or   @orderstr <> ''
     begin
         set   @tmpsql = @tmpsql + '  order by  ' + @orderstr
     end
     -- print @tmpsql    
     exec ( @tmpsql )
    
     set   @sql = ' drop table [ ' + @tbname + ' ] '
     exec ( @sql )
     set   @IstmpTB = 0
    
     return   0

lberr:
   
        EXEC  sp_displayoaerrorinfo  @obj ,  @err
     -- DELETE TmpTable While Error 
     IF   @IstmpTB = 1  
     BEGIN
         set   @sql = ' drop table [ ' + @tbname + ' ] '
         exec ( @sql )
     END
     return   - 1
lbexit:
     SELECT   @sql , @constr , @fdlist


GO
SET  QUOTED_IDENTIFIER  OFF  
GO
SET  ANSI_NULLS  ON  
GO