Скачать: CL | DM;

Как сделать?   Найти похожие ветки 

← →
P0tia ©   (2003-09-17 15:57) [0]

Как сделать чтобы при удалении с двиг был влево.
Excel.DisplayAlerts := false;
Excel.ActiveSheet.delete;
Excel.DisplayAlerts := true;

---

← →
Vlad ©   (2003-09-17 16:04) [1]

Знакомые люди.
Сдвиг чего ?
А сейчас сдвиг куда ?

---

← →
P0tia ©   (2003-09-17 16:10) [2]

Здарова, Vlad. Такая проблема, нужно безболезнено удалить лист в excel. СЕйчас здвиг вправо! if ListBox2.Count <>0 then begin
For i:=0 to ListBox2.Count-1 do begin
Excel.Workbooks[1].Sheets.add;
//for i:=0 to ListBox2.Count-1 do
DataModule2.Table1.Filter := "razdel = """+ListBox2.Items[i]+"""" ;
DataModule2.Table1.Filtered := true;
.
.
.
if Excel.ActiveSheet.Cells[5,2].value <> "" then begin
//Excel.activeSheet.Selection.Delete;

Excel.Workbooks[1].Worksheets["Баланс"].Select;
Excel.ActiveSheet.Cells[i+kol,1].value := ListBox2.items[i];
Excel.ActiveSheet.Cells[i+kol,2].value := bal;
end else
begin
Excel.DisplayAlerts := false;
Excel.ActiveSheet.delete;
Excel.DisplayAlerts := true;
end;

Типа создается лист, если он пустой то лист нужно удалить(безболезненно). А он удаляет и переходит вправо, создает лист, а обращается к листу правее, чем только что создал.

---

← →
Sandman25 ©   (2003-09-17 16:17) [3]

for ... downto ...

---

← →
P0tia ©   (2003-09-17 18:37) [4]

Не проходит строка не одна не вторая, посмотри!!! ОТМЕТИЛ(select).
For i:=0 to ListBox2.Count-1 do begin
Excel.Workbooks[1].Sheets.add;
//for i:=0 to ListBox2.Count-1 do
DataModule2.Table1.Filter := "razdel = """+ListBox2.Items[i]+"""" ;
DataModule2.Table1.Filtered := true;
Excel.Workbooks[1].Sheets[i+1].Select; //Не проходит
// И
Excel.Workbooks[1].Sheets[ListBox2.Count -i].Select; //тоже Не походит
.
.
.
if Excel.ActiveSheet.Cells[5,2].value <> "" then begin
//Excel.activeSheet.Selection.Delete;

Excel.Workbooks[1].Worksheets["Баланс"].Select;
Excel.ActiveSheet.Cells[i+kol,1].value := ListBox2.items[i];
Excel.ActiveSheet.Cells[i+kol,2].value := bal;
end else
begin
Excel.DisplayAlerts := false;
Excel.ActiveSheet.delete;
Excel.DisplayAlerts := true;
end;


---

← →
Sandman25 ©   (2003-09-17 18:41) [5]

For i:=0 to ListBox2.Count-1 do begin
Excel.Workbooks[1].Sheets.add;

Тут не должно быть begin.

---

← →
P0tia ©   (2003-09-17 19:20) [6]

Вроде должен, второй закаментирован

---

← →
P0tia ©   (2003-09-17 20:22) [7]

ПОМОГИТЕ

---

← →
P0tia ©   (2003-09-17 20:40) [8]

Прошу прощения ошибку выдает на функции steets.add после того как был удален лист. КАк это исправить?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c