急救！！！如何在asp下调用activeX连接excel和word对数据库进行报表输出

[happyno7]

有没有这种现成的activeX控件，拜托提供一下吧。
或者给我提供一个思路也好。急啊！！！！！！！

[wingc]

记得昨天subzero才说过了,excel和word都是进程外组件,在asp里直接通过creatobject创建,不是server.creatobject,至于方法和属性你就查查其他的资料吧.

[happyno7]

你这即是说不需要开发一个activeX控件了，excel和word的组件可以直接挂到asp上吗？哪位高手可以指点一下谜津!!谢谢！！！！！！！！！！！！！！！！！！！

[wingc]

是啊，只要你的服务器上装了word和excel.

[happyno7]

烟头：
不是要打印word或excel里的文件，而是要调用word或excel的组件进行报表打印。

[happyno9]

如果要求打印呢？打印word 或 excel里的文件

[happyno7]

我给笨鸟先飞10分吧

[iif]

哪有这方面的资料啊，谢谢
[e-mail]

[backlove]

强烈关注
我的情况是：从数据库中选取字段输出到excell表，请问怎么办？

[linyu]

很简单，如果你看不懂，我也没有办法了。
<%
wdAlignParagraphLeft=0
wdAlignParagraphCenter=1
wdAlignParagraphRight=2
dim objWdDoc

sub wdopen(sTempFile)
Set objWdDoc = Server.CreateObject("Word.Application")
If Err.number > 0 Then
response.write "没有安装WORD 2000，没法保存为Word文件,请正确安装Word2000！"
response.end
end if
objWdDoc.Documents.open server.mappath("/")&replace(sTempFile,"/","\")
end sub

sub wdclose(sSaveFile)
if(isobject(objWdDoc)) then
sSaveFilePath=server.mappath("/")&replace(sSaveFile,"/","\")
'response.write sSaveFilePath
objWdDoc.Documents(1).SaveAs sSaveFilePath
objWdDoc.Documents(1).close
objWdDoc.quit
set objWdDoc=nothing
response.write "<a href="&sSaveFile&">"&sSaveFile&"</a>"
else
response.write "Word对象没有初始化！"
response.end
end if
end sub

sub wdquit(sSaveFile)
if(isobject(objWdDoc)) then
sSaveFilePath=server.mappath("/")&replace(sSaveFile,"/","\")
objWdDoc.Documents(1).SaveAs sSaveFilePath
objWdDoc.Documents(1).close
objWdDoc.quit
set objWdDoc=nothing
response.write "<script>window.alert('打开WORD文件后，请先保存后进行打印！\n否则可能出错！');"
response.write "parent.location='"&sSaveFile&"';</script>"

' response.redirect sSaveFile
else
response.write "Word对象没有初始化！"
response.end
end if
end sub

sub wdnewline(n)
for m=1 to n
objWdDoc.Selection.TypeParagraph
next
end sub

sub wdrepl(strToFind,strReplace)
objWdDoc.Selection.Find.ClearFormatting
objWdDoc.Selection.Find.Replacement.ClearFormatting
objWdDoc.Selection.Find.Execute strToFind,0,0,0,0,0,0,1,0,strReplace,2,0,0,0,0
end sub

sub wdLeft()
objWdDoc.Selection.ParagraphFormat.Alignment=wdAlignParagraphLeft
end sub

sub wdcenter()
objWdDoc.Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter
end sub
sub wdright()
objWdDoc.Selection.ParagraphFormat.Alignment=wdAlignParagraphRight
end sub
sub wdsetfont(FontName,FontSize)
objWdDoc.Selection.Font.Name = FontName
objWdDoc.Selection.Font.Size = FontSize
end sub
sub wdsetbold(IsBold)
objWdDoc.Selection.Font.Bold = IsBold
end sub
sub wdnewline(n)
for m=1 to n
objWdDoc.Selection.TypeParagraph
next
end sub
sub wdWrite(typetext)
objWdDoc.Selection.TypeText cstr(typetext)
end sub
sub wdinserttable(NumRows, NumColumns)
objWdDoc.Selection.Tables.Add objWdDoc.Selection.Range, NumRows, NumColumns, wdWord9TableBehavior, wdAutoFitFixed
end sub
sub wdindent(n)
objWdDoc.Selection.ParagraphFormat.IndentCharWidth n
end sub
sub wddown(n)
objWdDoc.Selection.MoveDown 5, n
end sub
%>

[xjml]

服务器端又报表数据生成了一个excel文件，如何自动保存到客户端？提供个思路吧，各位高手。

[happyno9]

guan zhu