hur.cn - 华软网

 热门搜索

Error calling External Function

  作者:未知    来源:网络    更新时间:2018/11/9
下边是偶的代码!
我在自己的机器上编译就能够正常运行
到客户的机器上句犯错!
偶的是03SERVER,对方的是00PRO
求助啊......

string ls_path,ls_file
int i1,i2,li

OLEObject ole_o
ole_o = create OLEObject
ole_o.ConnectToNewObject('Excel.Application')
ole_o.workbooks.add
ole_o.workbooks.open('d:\use\sctj.xls')

//...//

ls_path = ''
if getfilesavename('save',ls_path,ls_file,'xls',"excel资料(*.xls),*.xls") <> 1 then
ole_o.workbooks.close
ole_o.quit()
ole_o.disconnectobject()
destroy ole_o
return
end if

ole_o.activeworkbook.saveas(ls_path)
ole_o.workbooks.close
ole_o.quit()
ole_o.disconnectobject()
destroy ole_o

好象是在SAVEAS的时候犯错的!
难道在2K下没法调用这个OLE的SAVEAS??
------华软网友回答------
对了,两台机器都用的OFFICE2003
------华软网友回复------
ole_o.activeworkbook.saveas(ls_path)
ole_o.workbooks.close
ole_o.quit()
ole_o.disconnectobject()   //这句个要试试看
destroy ole_o


------华软网友回复------
ole_o.activeworkbook.saveas(ls_path)
ole_o.workbooks.close    //这句也不要
ole_o.quit()
ole_o.disconnectobject()   //这句个要试试看
destroy ole_o


------华软网友回复------
犯错信息是什么?
------华软网友回复------
狂晕....发现了,我忘记把
ole_o.workbooks.open('d:\use\sctj.xls')

中的这个资料放到客户的机器里头去了........
不过,谢谢大家关注
一样给分结帖      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。