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

работа с Excel   Найти похожие ветки 

← →
Max   (2008-01-24 12:20) [0]

Добрый день!
Просьба помочь....

function WorkSheetIndex(WorkBookName, WorkSheetName: Ansistring): integer;
var
 i, k, n: integer;
begin
 //проверка на наличие листа с этим именем в книге с этим именем
 n := 0;
 if VarIsEmpty(Excel) = false then
 begin
   k := WorkBookIndex(WorkBookName);
   for i := 1 to Excel.WorkBooks[k].Sheets.Count do
     if Excel.WorkBooks[k].Sheets[i].Name = WorkSheetName then //здесь функция вылетает на "неправильный индекс", хотя к=1 из пред.процедуры....и в файле *.xls есть 2 листа!
     begin
       n := i;
       break;
     end;
 end;
 WorkSheetIndex := n;
end;

Есть предложения?

---

← →
Palladin ©   (2008-01-24 12:36) [1]

а в самом экселе работает?

---

← →
sniknik ©   (2008-01-24 13:06) [2]

> Есть предложения?
считать все с 0 и до количество -1.

---

← →
prisoner849   (2008-01-25 03:12) [3]

а почему в цикле for i := 1 to Excel.WorkBooks[k].Sheets.Count do переменная i инициируется с 1, а не с 0?

---

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

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



Память: 0.45 MB
Время: 0.049 c