Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.06;
Скачать: 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 вся ветка

Текущий архив: 2008.07.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1212568980
lead-in
2008-06-04 12:43
2008.07.06
indy, компонент IdFTP


2-1212701907
alex-drob
2008-06-06 01:38
2008.07.06
Как проверять установлен флаг или нет


15-1211486281
BlueDragon
2008-05-22 23:58
2008.07.06
Задание с ЕГЭ 2008


15-1211430963
Slider007
2008-05-22 08:36
2008.07.06
С днем рождения ! 22 мая 2008 четверг


15-1211301539
Kostafey
2008-05-20 20:38
2008.07.06
Распределенные сетевые задачи