Удаление лишних листов в Excel

[Rompler]

Всем привет!
Начал писать небольшую программку для обработки даннх в Excel
Мне необходимо удалить лишние листы в Excel которые в конце имени содержат символ 2

ExlApp := CreateOleObject('Excel.Application');
ExlApp.Visible := false;
ExlApp.DisplayAlerts := False;
FindRes := FindFirst('D:\GPS\Поездки\*.xls', faAnyFile, SR);
s:=SR.Name;
FindRes := FindFirst('D:\GPS\Стоянки\*.xls', faAnyFile, SR);
p:=SR.Name;
if ((s='') or (p='')) then ShowMessage('Новых данных для обработки не найдено')
else
begin
ExlApp.Workbooks.Open('D:\GPS\Поездки\'+s);
for i:=1 to ExlApp.Worksheets.count do c:=i;
j:=0;
while j<>c do begin
j:=j+1;
n:='2';
b:=Exlapp.workbooks.sheets.item[j].name;
r:=Pos(n,b);
if r=0 then begin
end
 else
 ExlApp.Workbooks.sheets.item[j].delete;

end;

При компиляции получаю ошибку (Method 'sheets' not supported by automation object)
Подскажите что не так делаю?

[lexaltd]

А так?

ExlApp.Workbooks[ExlApp.Workbooks.Count].Sheets[j].Delete
//или
ExlApp.ActiveWorkbook.Worksheets[j].Delete;

[Rompler]

Пробовал. В обоих случаях вылезает сообщение
Method 'sheets' not supported by automation object.

[Rompler]

while j<>c do begin
j:=j+1;
n:='- 2';
r:=Pos(n,Exlapp.ActiveWorkbook.Worksheets[j].name);
if r=0 then begin
end
 else
Exlapp.ActiveWorkbook.sheets[j].delete;
end;

Листы удаляет но с ошибкой Неверный индекс

[knight]

Работа с ActiveX с MS Office очень зависит от версии установленного пакета MS Office.

В документации иногда написаны процедуры для старых версий.
Лучше пользоваться подсказками в VBA. Т.е. в бейсике MS Office задать команду и смотреть набор полей, который он предлагает. Потом корректирвоать это все в Delphi.

Потом ставить проверку версии MS Office, и в зависимости от версии подставлять нужный набор полей.

[Rompler]

Большое спасибо за ответы ребята
Разобрался

PHP код:

while j<= ExlApp.Worksheets.count do begin
j:=j+1;
n:=' - 2';
p:=Exlapp.ActiveWorkbook.Worksheets[j].name;
r:=Pos(n,p);
if r=0 then begin
  end
  else
  Exlapp.ActiveWorkbook.Worksheets[j].delete;
end; 


Есть другой вопрос не по теме: Как реализовать условие проверки закраски строк в DBGrid? Если все строки в DBGrid = Color(clLime) тогда ...