{ **** UBPFD *********** by kladovka.net.ru ****
>>
Получает и заносит число типа double в ячейку листа Microsoft Excel
Зависимости: ComObj
Автор: lookin, <a href="mailto:lookin@mail.ru">lookin@mail.ru</a>, Екатеринбург
Copyright: lookin
Дата: 30 апреля 2002 г.
********************************************** }
//ВНИМАНИЕ: ОБЯЗАТЕЛЬНОЕ условие работы - наличие запущенного Excel
//получение double из заданной ячейки первого листа в заданной рабочей книге
function DoubleValueFromExcelCell(ExcelWorkBook,ExcelCell: string): double;
var i: integer;
  Excel,v: Variant;
begin
 Excel:=GetActiveOleObject('Excel.Application');
 for i:=1 to Excel.Application.Workbooks.Count do
 if Excel.Application.Workbooks[i].FullName=ExcelWorkBook then begin
 v:=Excel.Application.Workbooks[i].Sheets[1].Range[ExcelCell];
 DoubleValueFromExcelCell:=VarAsType(v,varDouble); v:=0; Excel:=0; end;
end;
//занесение double в заданную ячейку первого листа в заданной рабочей книге
procedure DoubleValueToExcelCell(Value: double; ExcelWorkBook,ExcelCell: string);
var i: integer;
  Excel,v: Variant;
begin
 Excel:=GetActiveOleObject('Excel.Application');
 for i:=1 to Excel.Application.Workbooks.Count do
 if Excel.Application.Workbooks[i].FullName=ExcelWorkBook then begin
 Excel.Application.EditDirectlyInCell:=false; v:=Value;
 Excel.Application.Workbooks[i].Sheets[1].Range[ExcelCell]:=v; end;
end;