работа с 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?

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