Как сделать?

← →
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 после того как был удален лист. КАк это исправить?

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