Текущий архив: 2003.10.09;
Скачать: 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 вся ветка
Текущий архив: 2003.10.09;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
