自动定时查询销售，定时保存成XLS，自动发送给不同的业务代表-----第三步

来源：互联网发布：上海恺英网络编辑：程序博客网时间：2024/04/28 00:35

设置导出路径，设置导出EXCEL的文件名，每个月的文件名自动为‘生产产地+月份’.xls格式。

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[savexls]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[savexls]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE proc savexls
@fname varchar(100)='' output,
@path varchar(100)='' output
as

declare @return int,@Vshpchd varchar(20)
set @return=0
exec @return=khyy.hszy.dbo.pr_getemail @vshpchd output

set @fname=@vshpchd+cast(datepart(month,dateadd(month,-1,getdate()))as varchar(20))+'月'+'.xls'
set @path='f:/zwmail/'
exec p_exporttb
@sqlstr='select * from openrowset(''sqloledb'',''Trusted_Connection=yes'',''exec khyy.hszy.dbo.pr_getemail'')',
@path=@path,
@fname=@fname,
@sheetname='陕西X生'