相信大家常常会遇到将sqlServer查询结果导出到Excel的问题。如果导出的次数少,直接“Save Results As...”就是了;但是当要分别在每个表取样,那就相当麻烦了。今天就为大家提供一个脱离office组件的可以将语句结果导出到Excel的过程,希望会对大家有帮助!
---导出到Excel
---使用说明:
-- 1.执行时所连接的服务器决定文件存放在哪个服务器
-- 2.远程查询语句中,要加上数据库名
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)='';
--判断是否为远程服务器
IF @Server <> '.' AND @Server <> '127.0.0.1'
SET @DataSource = 'OPENDATASOURCE(''sqlOLEDB'',''Data Source='+@Server+';User ID='+@User+';Password='+@Password+''').'
--将结果集导出到指定的数据库
SET @sql = REPLACE(@Querysql,' from ',' into '+@tmp+ ' from ' + @DataSource)
PRINT @sql
EXEC(@sql)
DECLARE @Columns VARCHAR(max) = '',@Data NVARCHAR(max)=''
SELECT @Columns = @Columns + ',''' + name +''''--获取列名(xp_cmdshell导出文件没有列名)
,@Data = @Data + ',Convert(Nvarchar,[' + name +'])'--将结果集所在的字段更新为nvarchar(避免在列名和数据union的时候类型冲突)
FROM tempdb.sys.columns WHERE object_id = OBJECT_ID('tempdb..'+@tmp)
SELECT @Data = 'SELECT ' + SUBSTRING(@Data,2,LEN(@Data)) + ' FROM ' + @tmp
SELECT @Columns = 'Select ' + SUBSTRING(@Columns,LEN(@Columns))
--使用xp_cmdshell的bcp命令将数据导出
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('tempdb..'+@tmp) IS NOT NULL
EXEC('DROP TABLE ' + @tmp)
EXEC sp_configure 'xp_cmdshell',0
RECONfigURE
SELECT ERROR_MESSAGE()
END CATCH
PS:先不要着急使用,该版本是基于xp_cmdshell的,因为要创建文件,所以要保证你的用户能有文件管理的权限,通常简单点的方法就是将sql server的启动用户设置为本地系统用户
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。