>for i=1 to alen(aFNames) > loWord=this.oWord > loWord.open(aFNames[i]) > >... word does more stuff here and closes the file in the end... > > if i%100=0 > this.oWord.quit(0) > this.oWord=null > endif >endfor>
PROCEDURE DestroyExcel TRY _screen.oStuff.oExcel.displayalerts = .F. CATCH ENDTRY TRY _screen.oStuff.oExcel.QUIT() CATCH dummy = .t. ENDTRY TRY _screen.oStuff.oExcel = NULL CATCH dummy = .t. ENDTRY RETURNthe task manager shows that Excel is still active! And the only way I can get rid of it is by cancelling the program and then it miraculously disappears!