Читаю из Excel столбец с бухгалтерскими данными
Я сам не стронник такого подхода, но других алтернатив нет ...
Там куча пустых ячеек, которые в базу ложить не хотелось бы
в VBA есть спец функция ISEmpty()
Вопрос : как проверить из Delphi программно что данная ячейка не пустая ?

С уважением Jojo

FullFileName := formsetup.EditBase.text + '???? ?????????????.xls';

v := CreateOleObject('Excel.Application');
v.Workbooks.Open[ FullFileName];
v.Sheets['??????????'].Activate;

dm.TBase.TableName:='factor.dbf';
dm.TBase.Active:=false;
dm.TBase.Active:=true;

BegStr:=4;
EndStr:=253;

for i:=BegStr to EndStr do
begin
try
if v.Sheets['??????????'].Cells[i, 6].Value<>0 then //Здесь нада проверять
begin
dm.TBase.Append;
dm.TBase.FieldByName('Npp').AsFloat:=(i-3);
dm.TBase.FieldByName('Nfac').AsString:=v.Sheets['??????????'].Cells[i, 4].Value;
dm.TBase.FieldByName('fac_num').AsFloat:=v.Sheets['??????????'].Cells[i, 6].Value;
dm.TBase.FieldByName('fac_pr').AsFloat:=v.Sheets['??????????'].Cells[i, 8].Value;
dm.TBase.Post;
end;
finally
dm.TBase.Append;
dm.TBase.FieldByName('Npp').AsFloat:=(i-3);
dm.TBase.FieldByName('Nfac').AsString:=v.Sheets['??????????'].Cells[i, 4].Value;
dm.TBase.FieldByName('fac_num').AsFloat:=1;
dm.TBase.FieldByName('fac_pr').AsFloat:=1;
dm.TBase.Post;
end;

end;

Не хотелось бы задавать постоянно
BegStr:=4; -начальная строка чтения в excel
EndStr:=253; - конечная строка чтения в excel

Согласен :) очень стыдно ... код несимпатичный
Да я млин тока начинаю кодить ...
для меня Null это не заполенное поле ... в базе ...
Чё делать то ? :)

Мужики большое спасибо

Vladimir_t2 попробовал твой совет, все поехало ...

а сделать покрасивей, то получается что ...

test:=Unassigned;
if Assigned(test) ....
***************************
Excel:=StartExcel(True);
Excel.Visible:=false;
ExcelFileOpen(Excel,FullFileName);
Excel.Sheets['Показатели'].Activate;

for i:=BegStr to EndStr do
begin
null:=test;
try
test:=Excel.Sheets['Показатели'].Cells[i, 6].Value;
except
null:=false;
end;
if null then
begin
dm.TBase.Append;
dm.TBase.FieldByName('Npp').AsFloat:=(i-3);
s:=Excel.Sheets['Показатели'].Cells[i, 4].Value;
s:=ReplaceStrAll(s,'.','_');
dm.TBase.FieldByName('Nfac').AsString:='p'+s;
dm.TBase.FieldByName('fac_num').AsFloat:=Excel.Sheets['Показатели'].Cells[i, 6].Value;
dm.TBase.FieldByName('fac_pr').AsFloat:=Excel.Sheets['Показатели'].Cells[i, 8].Value;
dm.TBase.Post;
end;
end;
QuitExcel(Excel);

Кстати в одном FAQ нашел полезные функции может кому пригодится
для работы с Excel:

//Запуск Excel
function StartExcel(IsVisible:boolean):variant;
begin
try
result:=UnAssigned;
result:=CreateOleObject('Excel.Application');
result.Visible:=IsVisible;
result.DisplayAlerts:=false;
except
raise Exception.Create('Не могу запустить Excel!');
end;
end;

//Открыть файл
procedure ExcelFileOpen(Excel:variant; FileName:string);
begin
try
Excel.WorkBooks.Open(FileName);
except
raise Exception.Create('Не могу откр файл!');
end;
end;

//Закрыть Excell
procedure QuitExcel(var Excel:variant);
begin
try
Excel.Quit;
finally
Excel:=Unassigned;
end;
end;