string ls_temp
ls_temp=gs_current_dir+"temp.txt"
if fileexists(ls_temp) then
filedelete(ls_temp)
end if
dw_1.saveasascii(ls_temp,"~t",'')
OLEObject lo_excelserver
int li_excel
lo_excelserver = CREATE OLEObject
ConnectExcel:
li_excel = lo_excelserver.ConnectToNewObject("excel.application")
if li_excel=0 then
lo_excelserver.WorkBooks.open(ls_temp,false)
lo_excelserver.Application.Visible = TRUE
else
if MessageBox("信息提示!","Excel不能正常使用!",Exclamation!,RetryCancel!)=1 then

goto ConnectExcel
end if
end if
lo_excelserver.DisconnectObject()
destroy lo_excelserver

报错如图片怎么修改