Работа с ячейкой листа Microsoft Excel



Автор: Lookin
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Работа с ячейкой листа Microsoft Excel
Получает и заносит число типа double в ячейку листа Microsoft Excel
Зависимости: ComObj
Автор:       lookin, [email protected], Екатеринбург
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;

Далее: Распечатать Excel файл »»