如何用ASP程序将数据转换成word文档，如果有源代码就更好啊！

[cocozzx]

如何用ASP程序将数据转换成word文档，如果有源代码就更好啊！

[希偌]

' 生成文件 xxx.doc
applpath = Request.ServerVariables("APPL_PHYSICAL_PATH")
docspec = applpath & "xxx.doc"
dotspec = applpath & "xxx.dot"

' 删除旧文件
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(docspec) then
fso.DeleteFile docspec
end if
set fso = nothing

' 生成新文件
on error resume next
set wdApp = CreateObject("Word.Application")
wdApp.Documents.Add dotspec, false
wdApp.DisplayAlerts = wdAlertsNone

if Err.number <> 0 then
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear
end if

set wdTable = wdApp.ActiveDocument.Tables(1)
wdTable.Cell(1,1).Range.Text = "somthing you want"
...

wdApp.ActiveDocument.SaveAs docspec
wdApp.Quit

set wdTable = nothing
set wdApp = nothing

[ar7_top]

┏━━━━━━━━━━━━━━━┓
┃　　　　　　　　　　　　　　　┃
┃Ｇｏｏｄ　Ｇｏｏｄ　Ｓｔｕｄｙ┃
┃　Ｓｋｙ　　Ｓｋｙ　　Ｕｐ　　┃
┃　　　　　　　　　　　　　　　┃
┗━━━━━━━━━━━━━━━┛