>for i = 1 to lnNumberOfFiles > > if mod(1,100) = 1 > FireUpExcel() > endif > > loWorkbook = _screen.oStuff.oExcel.Workbooks.OPEN(tcFile, tlUpdateLinks) > > Code... > Code... > > loWorkBook.CLOSE(tlSavetheFile) > >next > >return > >function FireUpExcel() > >if ExcelisActive() > _screen.oStuff.oExcel.QUIT() > _screen.oStuff.oExcel = NULL >endif > >SET MESSAGE TO 'Activating Excel...' >_screen.oStuff.oExcel = CREATEOBJECT("Excel.application") >_screen.oStuff.oExcel.VISIBLE = .F. > >return .t. >>