Форум: "Базы";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 лист".

---

← →
P0tia   (2003-09-11 15:52) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c