Как сделать?

← →
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.

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

ПОМОГИТЕ

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

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