Все тоже удаление.

← →
P0tia © (2003-09-10 18:15) [0]

На писан код, но почемуто выдает ошибку "неверный индекс". Помогите, завтра сдавать.

Excel := GetActiveOleObject("Excel.Application"); Excel.DisplayAlerts := false; edit1.Text := IntToStr(Excel.WorkBooks[1].Sheets.Count); i:=1; for I := 1 to Excel.WorkBooks[1].Sheets.Count do begin Excel.WorkBooks[1].Sheets[i].select; if Excel.WorkBooks[1].Sheets[i].name <> "Список" then Excel.WorkBooks[1].Sheets[i].delete; end; Excel.DisplayAlerts := true; Excel := Unassigned;

← →
Sandman25 © (2003-09-10 18:17) [1]

for i := ... downto 1

← →
P0tia © (2003-09-10 18:27) [2]

Все равно такаяже вещь.
Excel := GetActiveOleObject("Excel.Application"); Excel.DisplayAlerts := false; edit1.Text := IntToStr(Excel.WorkBooks[1].Sheets.Count); i:=1; for i:=Excel.WorkBooks[1].Sheets.Count downto 1 do begin Excel.WorkBooks[1].Sheets[i].select; if Excel.WorkBooks[1].Sheets[i].name <> "Список" then Excel.WorkBooks[1].Sheets[i].delete; end; Excel.DisplayAlerts := true; Excel := Unassigned;

← →
Sandman25 © (2003-09-10 18:34) [3]

У меня это сработало. Только что проверил. Только ругнулось на попытку удаления последнего остававшегося листа - "в книге должен остаться хотя бы 1 лист".

А у меня ругается и оставляет два листа. "Список" и еще один.

← →
Andrey V. (2003-09-11 15:57) [5]

Может не в тему , но припомнил что в ХР у меня не прошло название щита с пробелом (в 98 все ок), пришлось ставить "_"

Все тоже удаление. Найти похожие ветки