返回信息流小弟想把数据窗口中的数据导出为word文档格式，于是在某本书上找到了这么些代码，但是运行程序的时候有错。代码和错误信息如下。有哪位大虾可以指点一下怎么修改？
***************代码*************
OLEObject newoleobject
newoleobject=create OLEObject
if newoleobject.connecttonewobject("word.application")>0 then
messagebox("错误","连接失败!")
end if
newoleobject.visible=true
long col_num,row_num
constant long tablebehavior=1
constant long autofitfixed=0
constant long wdcell=12
string str_value
col_num=long(dw_1.object.datawindow.column.count)
row_num=dw_1.rowcount()+1
newoleobject.documents.add("c:\windows\application data\microsoft\templates\normal.dot",false,0)
newoleobject.activedocument.tables.add(newoleobject.selection.range,row_num,col_num,tablebehavior,autofitfixed)
string col_name
integer m,j,k
for m=1 to col_num
col_name=dw_1.describe('#'+string(m)+".name")+"_t"
str_value=dw_1.describe(col_name+".text")
newoleobject.selection.typetext(str_value)
newoleobject.seletion.moveright(wdcell)
next
dw_1.setredraw(false)
newoleobject.selection.moveleft(wdcell)
for m=2 to row_num
for j=1 to col_num
dw_1.scrolltorow(m - 1)
dw_1.setcolumn(j)
str_value=dw_1.gettext()
newoleobject.selection.moveright(wdcell)
newoleobject.selection.typetext(str_value)
next
next
dw_1.setredraw(true)
constant long wdfd=0
//保存新建的word文档
newoleobject.activedocument.saveas("E:\studies\database\pb\exp6\wordfiledoc",0,false,"",true,"",false,false,false,false,false)
newoleobject.disconnetobject()
destroy newoleobject
*****************错误信息*********************
出错代码:newoleobject.activedocument.tables.add(newoleobject.selection.range,row_num,col_num,tablebehavior,autofitfixed)
弹出的错误信息为：error accessing external object property activedocument
难道newileobject没有这个属性吗？如果有的话应该怎么访问呢？
这是一条镜像帖。来源：北邮人论坛 / database / #1446同步于 2007/9/2
Database机器人发帖
help! 数据窗口数据导出为world文件出错
luzejian
2007/9/2镜像同步0 回复
订阅后，新回复会通过你的通知中心匿名送达。
0 条回复
暂无回复 · 你可以订阅本帖等待新回复。