Импорт из Excel?

[SergZol]

Как правильно читать данные из XLS-файлов

Код: Выделить всё

      if (xlCreateExcelWithTemplate(sXLSFileName,true))
       if(not xlIsExcelValid)
       {
         message('MS Excel на активировался! Загрузка невозможна!');
         exit; 
       }
       tResult:=xlSetActiveSheet(1); 
       if(not tResult)
       {
         message('Кника MS Excel не содержит листов! Загрузка невозможна!');
         exit; 
       }

       // Перебор ячеек в листе

       While (tResult) do
       {

        tResult:=xlGetCellValue(xlRow,xlCol_MC,xlValue); 
        message(xlValue)
        }

Почему-то выводит значение не определено.

Где моя ошибка, помоготе плз.
Нада очень срочно.

[kutin]

дык кто сказал, что xlGetCellValue возвращает false если ячейка пустая?
и где здесь перебор если значение xlRow,xlCol_MC не меняется?!
// Перебор ячеек в листе
While (tResult) do
{
tResult:=xlGetCellValue(xlRow,xlCol_MC,xlValue);
message(xlValue)
}

[SergZol]

Перебор менялся! забыл показать в коде стоит inc(xlRow);
Победил!
у меня xlValue было описано как variant
т.е.
var
xlValue:variant
НАДА БЫЛО
xlValue:и тип какой хочим получить т.е. string,double,date....
и все работает.

спасиб всем