int ????ret??????
string?filename
string?filename2
string?resume

filename = " d:\smis2\xmk.xls "
filename2 = " d:\smis2\2006050120xmk.xls "
resume = " d:\smis2\resume.xlw "
filedelete(resume)
oleobject????xlapp,xlsub?????
xlapp = create?oleobject
ret = xlapp.connecttonewobject( " excel.sheet " )???
// ret=xlapp.connecttonewobject("excel.application")???

if ????ret < 0 ????then??????
?????????????messagebox( " 你的電腦未安裝Excel " ,string(ret))??????
????????????? return ??????
end???? if ??????
xlapp.application.workbooks.open(filename)??????
xlsub = xlapp.application.activeworkbook.worksheets[ 1 ]??????

xlsub.cells[ 4 , 2 ].value = " 我是吳吳 "

xlapp.saveas(filename2, true )
messagebox( " aa " , " aa " )
xlapp.application.save( ' ? ' )
// xlapp.application.close()
xlapp.application.quit()
xlsub.disconnectobject()
xlapp.disconnectobject()
destroy?xlsub
destroy?xlapp