> 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 endforCetin