下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
Version: sql Server 7.0/2000
Created by: Alexander Chigrik
http://www.MSsqlCity.com/ - all about MS sql
(sql Server Articles,FAQ,Scripts,Tips and Test Exams).
This stored procedure can be used to export the text string into
Microsoft Word. You can pass the text string and the file name
(if the file name was not specified,the c:\ImportToWord.doc
will be used) into this stored procedure,as in the example below:
EXEC ExportToWord @Text = 'Test example',@filename = 'c:\ImportToWord.doc'
This stored procedure can be used to export the text string into
Microsoft Word. You can pass the text string and the file name
(if the file name was not specified,the c:\ImportToWord.doc
will be used) into this stored procedure,@filename = 'c:\ImportToWord.doc'
*/
IF OBJECT_ID('ExportToWord') IS NOT NULL DROP PROC ExportToWord
GO
CREATE PROCEDURE ExportToWord (
@Text varchar(200) = null,@filename varchar(200) = 'c:\ImportToWord.doc'
)
AS
DECLARE @object int,@Range int,@Documents int,@Document int,@hr int,@result_str varchar(255)
IF @Text IS NULL
BEGIN
PRINT 'You should write text'
RETURN
END
SET NOCOUNT ON
EXEC @hr = sp_OACreate 'Word.Application',@object OUT
IF @hr <> 0
BEGIN
PRINT 'error create Word.Application'
RETURN
END
EXEC @hr = sp_OAGetProperty @object,'Documents',@Documents OUT
IF @hr <> 0
BEGIN
PRINT 'error create Documents'
RETURN
END
EXEC @hr = sp_OAMethod @Documents,'Add',@Document OUT
IF @hr <> 0
BEGIN
PRINT 'error with method Add'
RETURN
END
EXEC @hr = sp_OAGetProperty @Document,'Range',@Range OUT
IF @hr <> 0
BEGIN
PRINT 'error create Range'
RETURN
END
EXEC @hr = sp_OASetProperty @Range,'Text',@Text
IF @hr <> 0
BEGIN
PRINT 'error set Text'
RETURN
END
SELECT @result_str = 'SaveAs("' + @filename + '")'
EXEC @hr = sp_OAMethod @Document,@result_str
IF @hr <> 0
BEGIN
PRINT 'error with method SaveAs'
RETURN
END
EXEC @hr = sp_OAMethod @Documents,'Close'
IF @hr <> 0
BEGIN
PRINT 'error with method Close'
RETURN
END
EXEC @hr = sp_OADestroy @object
IF @hr <> 0
BEGIN
PRINT 'error destroy Word.Application'
RETURN
END
GO
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
相关文章
总结
以上是编程之家为你收集整理的SQL导出为Word全部内容,希望文章能够帮你解决SQL导出为Word所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您喜欢交流学习经验,点击链接加入交流1群:1065694478(已满)交流2群:163560250