| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать? [D7, Paradox]

P0tia ©   (2003-09-17 15:57:00) 

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

---

P0tia   (2003-09-17 20:40:00) [1]

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

---

P0tia   (2003-09-17 20:22:00) [2]

ПОМОГИТЕ

---

P0tia   (2003-09-17 19:20:00) [3]

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

---

Sandman25   (2003-09-17 18:41:00) [4]

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

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

---

P0tia   (2003-09-17 18:37:00) [5]

Не проходит строка не одна не вторая, посмотри!!! ОТМЕТИЛ(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 16:17:00) [6]

for ... downto ...

---

P0tia   (2003-09-17 16:10:00) [7]

Здарова, 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;

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

---

Vlad   (2003-09-17 16:04:00) [8]

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

---

Наверх