PB8的DATAWINDOW导出到EXCEL 2007的问题（OLE的问题）

[pieroshi]

以下代码在EXCEL2003可以运行，但在EXCEL2007下不能运行，请高手帮忙看看什么原因：
ds_data.SaveAs(path, Excel5!, false) //保存成为的Excel文件

OLEObject oExcel
OLEObject oBook
OLEobject oSheet
Integer ExcelOK

oExcel = Create OLEObject
oSheet = Create OLEObject

oExcel.ConnectToNewObject( "excel.application" )
oBook = oExcel.Workbooks.Open(path)
oSheet = oBook.Sheets(filename)

oSheet.Cells(1,1).EntireRow.Insert(-4121) //在sheet中插入一行
oSheet.Cells(1,1).Value = 'XXXX'

oSheet.Cells(1,1).EntireRow.Insert(-4121) //在sheet中插入一行
oSheet.Cells(1,1).Value = 'XXXXXX'

oBook.SaveAs(path+'a',43)//运行到这里时候报错
FileDelete(path)
oBook.SaveAs(path,43)
FileDelete(path + 'a')
oBook.Close()

报错图片如下：


请大家看看是什么原因，谢谢了。

[pieroshi]

没人回复吗？自己顶上去了。。。

[GANZHE_XINYI]

错误图片看不到!

[lllyyymmm]

le_object.activeworkbook.saveas(ls_filepath)

[seven2015]

关注一下

[laifeir]

顺便学习

[pieroshi]

看不到吗？直接点图片右键，然后看属性，然后COPY到IE里也可以。

算了，敲出来吧。
报错信息如下：

Application terminated

Error:Error calling external object function saveas at line 414 in function f_saveexcl_new of object f_saveexcl_new.

应该是EXCEL 2007不支持saveas函数
那么应该用什么函数呢，请用过的告知下，不胜感激。

[AFIC]

43你想实现什么功能？
你可以去掉43这个参数，你可以先用fileexists判断某文件是否存在

[pieroshi]

不好意思，出差去了，没有上来看回复，谢谢各位的回复，我研究下是否能将问题解决，解决后立即给分。谢谢。