>> oExcel=CREATEOBJECT("Excel.Application") >> With oExcel >> .DisplayAlerts= .F. >> .WorkBooks.Open(XLSFile,0) >> FOR iTabor= 1 TO 100 >> .Sheets.iTabor.Select() >> >> ENDFOR >>>
>for itabor = 1 to .ActiveWorkBook.WorkSheets.Count > .ActiveWorkBook.WorkSheets(m.iTabor).Activate > ? .ActiveWorkBook.ActiveSheet.Name >endfor >Cetin