PB12转出EXCEL

[tjtx_cyf]

转出EXCEL的时候，当有打开excel的时候报错，代码如下，请高手指点
string docname
docname=trim(sle_1.text)
if docname='' then return

// Convert HTML file to Excel native format
OLEObject excel1
DESTROY excel1
excel1 = CREATE OLEObject
if excel1.ConnectToObject(docname) = 0 then
excel1.application.DisplayAlerts = FALSE
excel1.application.workbooks(1).Parent.Windows(excel1.application.workbooks(1).Name).Visible = True
excel1.application.workbooks(1).saveas(docname,39)
excel1.application.workbooks(1).close()
end if
Excel1.DisConnectObject()
DESTROY excel1

报错提示 excel1.application.workbooks(1).saveas(docname,39) 这行代码有问题

[zlf19810306]

用ConnectToNewObject试试

[zlf19810306]

另外你用saveas另存为同名的文件，如果是文件扩展名相同当然会报错

[www_huabo]

都用上pb12 了