loExcel = CreateObject('Excel.Application')
loExcel.Workbooks.Add
* Общее количество листов в книге
LOCAL lnSheetsCount, lnSheetsNeed
lnSheetsCount = m.loExcel.ActiveWorkbook.Sheets.count
lnSheetsNeed =  10 	&& количество необходимых листов

* Добавляю нужное количество листов после последнего листа
if m.lnSheetsCount> 0 
	m.loExcel.ActiveWorkbook.Sheets.Add(NULL,;
			m.loExcel.ActiveWorkbook.Sheets(m.lnSheetsCount),;
			m.lnSheetsNeed-m.lnSheetsCount)
else
	m.loExcel.ActiveWorkbook.Sheets.Add(NULL,NULL,m.lnSheetsNeed-m.lnSheetsCount)
endif