这里是Com的部分代码
public sub OptWord
dim oWord as word.application
dim oDoc as Word.document
Set mWord = CreateObject("Word.Application")
Set mDoc = mWord.Documents.Add("e:\test\mydoc.doc") '这句总出错,异常退出
end sub这里是Asp代码
<%
dim obj
Set obj=CreateObject("MyTest.clsMain")
obj.OptWord
set obj=nothing
%>如果用VB写的客户端调用com,没有问题,可以打开。
public sub OptWord
dim oWord as word.application
dim oDoc as Word.document
Set mWord = CreateObject("Word.Application")
Set mDoc = mWord.Documents.Add("e:\test\mydoc.doc") '这句总出错,异常退出
end sub这里是Asp代码
<%
dim obj
Set obj=CreateObject("MyTest.clsMain")
obj.OptWord
set obj=nothing
%>如果用VB写的客户端调用com,没有问题,可以打开。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货