Главная страница
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-1212846624
WebSQLNeederrr
2008-06-07 17:50
2008.07.06
Как узнать следующее вхождение pos-a


15-1211353535
Ega23
2008-05-21 11:05
2008.07.06
To-Do List - параметр Module


2-1212753107
opoloXAI
2008-06-06 15:51
2008.07.06
FileExists(myfName)


2-1213006225
ciborg
2008-06-09 14:10
2008.07.06
Файл занят другим приложением


15-1211204001
Prohodil Mimo
2008-05-19 17:33
2008.07.06
как заставить прокрутиться закрытый ComboBox?