SQL导出为Word代码,MSSQL代码库,德仔网

代码语言
代码分类
【MSSQL】 SQL导出为Word
作者:疯狂的流浪 / 发布于2011/1/10/ 955
<div>Version: SQL Server 7.0/2000
Created by: Alexander Chigrik
<a href="http://www.MSSQLCity.com/">http://www.MSSQLCity.com/</a> - all about MS SQL
(SQL Server Articles, FAQ, Scripts, Tips and Test Exams).</div>
<div>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:</div>
<div>EXEC ExportToWord @Text = 'Test example',
 @filename = 'c:\ImportToWord.doc'</div>
<div>
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:</div>
<div>EXEC ExportToWord @Text = 'Test example',
 @filename = 'c:\ImportToWord.doc'
*/</div>
<div>IF OBJECT_ID('ExportToWord') IS NOT NULL DROP PROC ExportToWord
GO</div>
<div>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)</div>
<div>IF @Text IS NULL 
 BEGIN
 PRINT 'You should write text'
 RETURN
 END</div>
<div>SET NOCOUNT ON</div>
<div>EXEC @hr = sp_OACreate 'Word.Application', @object OUT
IF @hr <> 0
BEGIN
 PRINT 'error create Word.Application'
 RETURN
END</div>
<div>EXEC @hr = sp_OAGetProperty @object, 'Documents', @Documents OUT
IF @hr <> 0
BEGIN
 PRINT 'error create Documents'
 RETURN
END</div>
<div>EXEC @hr = sp_OAMethod @Documents, 'Add', @Document OUT
IF @hr <> 0
BEGIN
 PRINT 'error with method Add'
 RETURN
END</div>
<div>EXEC @hr = sp_OAGetProperty @Document, 'Range', @Range OUT
IF @hr <> 0
BEGIN
 PRINT 'error create Range'
 RETURN
END</div>
<div>EXEC @hr = sp_OASetProperty @Range, 'Text', @Text
IF @hr <> 0
BEGIN
 PRINT 'error set Text'
 RETURN
END</div>
SELECT @result_str = 'SaveAs("' + @filename + '")'
EXEC @hr = sp_OAMethod @Document, @result_str
IF @hr <> 0
BEGIN
 PRINT 'error with method SaveAs'
 RETURN
END</div>
<div>EXEC @hr = sp_OAMethod @Documents, 'Close'
IF @hr <> 0
BEGIN
 PRINT 'error with method Close'
 RETURN
END</div>
<div>EXEC @hr = sp_OADestroy @object
IF @hr <> 0
BEGIN
 PRINT 'error destroy Word.Application'
 RETURN
END
GO</div>
试试其它关键字
　导出Word　
同语言下
可能有用的
疯狂的流浪贡献的其它代码(8)