oExcel = CreateObject("Excel.Application") oExcel.Visible = .T. && opcional oWorkbook = oExcel.Workbooks.Open("test.xls") oRange = oExcel.ActiveSheet.Range("A4:B6") FOR nRow = 1 TO oRange.Rows.Count FOR nColumn = 1 TO oRange.Columns.Count ? oRange.Cells[nRow, nColumn].Value ENDFOR ENDFOR:)