PB6.5程序报错

[cherish0107]

在程序中执行了一个函数，参数就是filename，在退出时程序报错，但是执行结果却没有问题
请高人指点一二，代码如下
OLEObject xlapp , xlsub
int ret
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject("excel.Application")
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlApp.Application.Workbooks.open(filename)
xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlsub.cells[1,1] = "部门代码"
xlapp.Application.ActiveWorkbook.saved = false
xlapp.DisConnectObject()
Destroy xlapp

[AFIC]

xlapp.activeworkbook.close()
xlapp.Application.Quit()
加到disconnect指前

[cherish0107]

还是不行，加了这个就是把excel文档自动关闭了，程序退出时还有错

[888888888888]

糗了吧

[SKY_4K_PPM]

xlapp.Application.ActiveWorkbook.saved = false
去掉上面一句，
+上AFIC 的俩句应该没问题吧

[UltraBejing]

不明LZ在说什么

[KEA1608]

楼主有PB6.5的 PFC库文件吗?能不能打包发一个给我?谢谢!
http://topic.csdn.net/u/20080528/10/e1a23881-1ee9-40ff-baa9-d97767fade6c.html