>vfile= 'R101208.XLS' >oExcel = CreateObject("Excel.Application") >oWorkbook = oExcel.Workbooks.Open(vFile) >tSheets = oWorkbook.Sheets.Count && get total of sheets > >DIMENSION nSheet(tSheets) >FOR n=1 TO tSheets > nSheet(n) = oWorkbook.Sheets(n).Name && get names of the sheets >NEXT >oExcel.Quit() && quits excel but don't unload it from memory. > && I have Office 2003 and it didn't remove EXCEL.EXE from memory >RELEASE oExcel && This remove Excel from memory > >CREATE CURSOR CUSFILE (CUSNO C(10), CUSNAME C(20), INVDATE D(8), DNNO C(10), AMOUNT N(10,2), RMK C(50)) >APPEND FROM (vFile) XL8 SHEET (nSheet(2)) > >>