Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

работа с Excel [D7, dBase, FoxPro]

Max © (2008-01-24 12:20:00)
Добрый день!
Просьба помочь....

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;

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

prisoner849 (2008-01-25 03:12:00) [1]
а почему в цикле for i := 1 to Excel.WorkBooks[k].Sheets.Count do переменная i инициируется с 1, а не с 0?

sniknik (2008-01-24 13:06:00) [2]
> Есть предложения?
считать все с 0 и до количество -1.

Palladin (2008-01-24 12:36:00) [3]
а в самом экселе работает?

Наверх

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