相信大家常常會(huì)遇到將SqlServer查詢(xún)結(jié)果導(dǎo)出到Excel的問(wèn)題。如果導(dǎo)出的次數(shù)少，直接“Save Results As...”就是了;但是當(dāng)要分別在每個(gè)表取樣，那就相當(dāng)麻煩了。今天就為大家提供一個(gè)脫離office組件的可以將語(yǔ)句結(jié)果導(dǎo)出到Excel的過(guò)程，希望會(huì)對(duì)大家有幫助!

---導(dǎo)出到Excel

---使用說(shuō)明：

-- 1.執(zhí)行時(shí)所連接的服務(wù)器決定文件存放在哪個(gè)服務(wù)器

-- 2.遠(yuǎn)程查詢(xún)語(yǔ)句中，要加上數(shù)據(jù)庫(kù)名

ALTER PROC ExportFile

@QuerySql VARCHAR(max)

,@Server VARCHAR(20)

,@User VARCHAR(20)

,@Password VARCHAR(20)

,@FilePath NVARCHAR(100) = 'c:ExportFile.xls'

AS

DECLARE @tmp VARCHAR(50) = '[##Table' + CONVERT(VARCHAR(36),NEWID())+']'

BEGIN TRY

DECLARE @Sql VARCHAR(max),@DataSource VARCHAR(max)='';

--判斷是否為遠(yuǎn)程服務(wù)器

IF @Server <> '.' AND @Server <> '127.0.0.1'

SET @DataSource = 'OPENDATASOURCE(''SQLOLEDB'',''Data

--將結(jié)果集導(dǎo)出到指定的數(shù)據(jù)庫(kù)

SET @Sql = REPLACE(@QuerySql,' from ',' into + ' from ' + @DataSource)

PRINT @Sql

EXEC(@Sql)

DECLARE @Columns VARCHAR(max) = '',@Data NVARCHAR(max)=''

SELECT @Columns = @Columns + ',''' + name +''''--獲取列名(xp_cmdshell導(dǎo)出文件沒(méi)有列名)

,@Data = @Data + ',Convert(Nvarchar,[' + name +'])'--將結(jié)果集所在的字段更新為nvarchar(避免在列名和數(shù)據(jù)union的時(shí)候類(lèi)型沖突)

FROM tempdb.sys.columns WHERE object_id = OBJECT_ID()

SELECT @Data = 'SELECT ' + SUBSTRING(@Data,2,LEN(@Data)) + ' FROM ' + @tmp

SELECT @Columns = 'Select ' + SUBSTRING(@Columns,2,LEN(@Columns))

--使用xp_cmdshell的bcp命令將數(shù)據(jù)導(dǎo)出

EXEC sp_configure 'xp_cmdshell',1

RECONFIGURE

DECLARE @cmd NVARCHAR(4000) = 'bcp "' + @Columns+' Union All ' + @Data+'" queryout ' + @FilePath + ' -c -T'

PRINT @cmd

exec sys.xp_cmdshell @cmd

EXEC sp_configure 'xp_cmdshell',0

RECONFIGURE

EXEC('DROP TABLE ' + @tmp)

END TRY

BEGIN CATCH

--處理異常

IF OBJECT_ID() IS NOT NULL

EXEC('DROP TABLE ' + @tmp)

EXEC sp_configure 'xp_cmdshell',0

RECONFIGURE

SELECT ERROR_MESSAGE()

END CATCH

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄