表数据导出到Excl并进行分页处理.docVIP

USE [DBNAME] GO /****** Object: StoredProcedure [dbo].[ExportToExcel] Script Date: 03/18/2011 13:16:39 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /********************************************************************************************************************* 导出数据到EXCEL中且每页为65535条数据，包含字段名，文件为真正的Excel文件格式。 如果文件不存在，将自动创建文件，存在将不导出。 如果表不存在，将自动创建表。 基于通用性考虑，仅支持导出标准数据类型。 --Creator by zoujian 2003.10 --增加分页功能，每页65000条。 --Add by xiexiaoman --修改分页功能，每页65535条。 --Add by liujunxiong 2011.03.18 --1、修改在SQL2005/2008下配置项没有打开，解决权限的问题； --2、修改表带自增列导出报错的问题。 --调用示例 exec ExportToExcel @ExcSql=select * from [TABLENAME],@SavePath=D:\,@FileName=Test.xls,@SheetName=[TABLENAME] --存在的问题： --1、文件只能导出到服务器进行保存。 ***********************************************************************************************************************/ CREATE proc [dbo].[ExportToExcel] @ExcSql varchar(8000), --查询语句,如果查询语句中使用了order by, 请加上top 100 percent @SavePath nvarchar(1000), --文件存放目录 @FileName 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),@tmpsql varchar(8000) declare @sheetcount int,@sheetnow int, @recordcount int, @recordnow int declare @sheetsql varchar(8000)--创建页的sql declare @pagesize int set @pagesize = 65535 --Sheet分页的大小 --参数检测 if isnull(@FileName,)= set @FileName=temp.xls if isnull(@SheetName,)= set @SheetName=replace(@FileName,.,#) --检查文件是否已经存在 if right(@SavePath,1)\ set @SavePath=@SavePath+\ create table #tb(a bit,b bit,c bit) set @sql=@SavePath+@FileName insert into #tb exec master..xp_fileexist @sql --数据库创建语句 set @sql=@SavePath+@FileName 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