...
(
  @Query varchar(max) /* запрос, который формирует набор для отчета*/
  , @File varchar(255) /* файл xls */
  , @Sheet varchar(40) /* лист xls файла*/
)

CREATE FUNCTION [dbo].[fnExcelQuery] (
	 @Object	SysName
) RETURNS NVarChar(max) AS BEGIN RETURN (
SELECT	(
SELECT	  CASE	WHEN C.column_id = 1
		THEN ' '
		ELSE '
	,'	END + 'NULL AS [text()],'
	+ CASE	WHEN C.system_type_id IN (48,52,56,59,60,62,106,108,122,127)
							THEN '''Number''  '
		WHEN C.system_type_id IN (58,61)	THEN '''DateTime'''
		WHEN C.system_type_id = 104		THEN '''Boolean'' '
							ELSE '''String''  '
		END + 'AS [Cell/Data/@s:Type],'
	+ QuoteName(C.name) + Space(Max(Len(C.name))OVER() - Len(C.name)) + ' AS [Cell/Data/text()]'
		AS [Row/text()]
	, IsNull('<Column s:StyleID="'
	+ CASE	WHEN C.system_type_id IN (48,52,56,59,62,106,108,127)
							THEN 'Number'
		WHEN C.system_type_id IN (60,122)	THEN 'Currency'
		WHEN C.system_type_id IN (58,61)	THEN 'DateTime'
		WHEN C.system_type_id = 104		THEN 'Boolean'
		END + '" />','<Column />')
		AS [Style/text()]
	,'<Cell><Data s:Type="String">' + C.name + '</Data></Cell>'
		AS [Name/text()]
FROM	sys.columns C
WHERE	C.[object_id] = Object_ID(@Object)
ORDER BY C.column_id
FOR XML Path(''),Type).query('(<Row>{/Row/text()}</Row>,<Style>{/Style/text()}</Style>,<Name>{/Name/text()}</Name>)').value('fn:concat("
;WITH XMLNAMESPACES(Default ''urn:schemas-microsoft-com:office:spreadsheet'',''urn:schemas-microsoft-com:office:spreadsheet'' AS s)
SELECT	N''<?xml version=""1.0"" encoding=""UTF-16""?><?mso-application progid=""Excel.Sheet""?>'' + Convert(NVarChar(max),IsNull((
SELECT	",(/Row/text())[1],"
FROM	",sql:variable("@Object")," WITH(NoLock)
FOR XML Path(''Row''),Root(''Table''),Type),'''').query(''
<Workbook xmlns=""urn:schemas-microsoft-com:office:spreadsheet"" xmlns:s=""urn:schemas-microsoft-com:office:spreadsheet"">
 <Styles>
  <Style s:ID=""Boolean""><NumberFormat s:Format=""True/False"" /></Style>
  <Style s:ID=""Currency""><NumberFormat s:Format=""Currency"" /></Style>
  <Style s:ID=""Number""><NumberFormat s:Format=""General Number"" /></Style>
  <Style s:ID=""DateTime""><NumberFormat s:Format=""General Date"" /></Style>
 </Styles>
 <Worksheet s:Name=""",sql:variable("@Object"),""">
  <Table>
   ",(/Style/text())[1],"
   <Row>",(/Name/text())[1],"</Row>
   {/Table/Row}
  </Table>
 </Worksheet>
</Workbook>''))")','NVarChar(max)')
) END
GO

DECLARE	@Query NVarChar(max)
SET	@Query = dbo.fnExcelQuery('<ViewName>')
PRINT @Query
EXEC (@Query)	-- Сами решайте куды запрос зафигачивать

DECLARE	@Query NVarChar(max)
SET	@Query = dbo.fnExcelQuery('<ViewName>')
PRINT @Query
EXEC (@Query)	-- Сами решайте куды запрос зафигачивать

EXEC (@Query)

DECLARE @result int
DECLARE @cmd varchar( 150)

SET @cmd = 'bcp "SELECT i.Doc_Date, i.Doc_Var FROM ReportsDB.Rpt.t_Income i" queryout "C:\1.txt"  -w  -C 1251 -r -T'

EXEC @result = master..xp_cmdshell @cmd, no_output
IF (@result = 0)
   PRINT 'Success'
ELSE
   PRINT 'Failure'

EXEC (@Query)

DECLARE @result int
DECLARE @cmd varchar( 150)

SET @cmd = 'bcp "SELECT i.Doc_Date, i.Doc_Var FROM ReportsDB.Rpt.t_Income i" queryout "C:\1.txt"  -w  -C 1251 -r -T'

EXEC @result = master..xp_cmdshell @cmd, no_output
IF (@result = 0)
   PRINT 'Success'
ELSE
   PRINT 'Failure'

DECLARE	 @Result	Int
	,@Command	VarChar(4000)
SET	 @Command	= 'bcp "' + Replace(Replace(dbo.fnExcelQuery('<ViewName>'),'"',''''''),'
','')			+ '" queryout "C:\1.txt" -T -q -w -r -t'
EXEC	@Result	= master.dbo.xp_CmdShell @Command
IF (@Result = 0) PRINT 'Success'; ELSE PRINT 'Failure';

DECLARE	 @Result	Int
	,@Command	VarChar(4000)
SET	 @Command	= 'bcp "' + 
	Replace(Replace(dbo.fnExcelQuery('ReportsDB.RptBuh.f_Commission_GetRest()'),'"',''''''),'
','')			+ '" queryout "C:\1.xml" -T -q -w -r -t'
EXEC	@Result	= master.dbo.xp_CmdShell @Command

IF (@Result = 0) PRINT 'Success'; ELSE PRINT 'Failure';

CREATE FUNCTION [RptBuh].f_Commission_GetRest ()
RETURNS TABLE
AS
  RETURN(
  	SELECT         

			r.WayBill_Var AS [№ накладной],
			r.WayBill_Date AS [Дата накладной],
			r.WeightOper_Flo AS [Количество, тн]
	FROM Rpt.t_RestResource r
	
  )