LOCAL oExcel, lcItem, lnCost lcFile = "HITACHI.XLS" oExcel = CREATEOBJECT("Excel.Application",) oExcel.Workbooks.Open(lcFile) oExcel.Workbooks(1).Sheets(1).Select() oExcel.Cells.Select mnLastRow = oExcel.activesheet.UsedRange.ROWS.COUNT rr = oExcel.activesheet.UsedRange.ROWS.COUNT mcLastRow = ALLTRIM(STR(mnLastRow)) lcItem = oExcel.Cells(rr,??).value && oExcel.Cells(rr,08).value lnCost = oExcel.Cells(rr,??).value && oExcel.Cells(rr,12).value