{ **** UBPFD *********** by delphibase.endimus.com ****
>> Работа с ячейкой листа Microsoft Excel
Получает и заносит число типа double в ячейку листа Microsoft Excel
Зависимости: ComObj
Автор: lookin, lookin@mail.ru, Екатеринбург
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 doif Excel.Application.Workbooks[i].FullName = ExcelWorkBook thenbegin
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 doif Excel.Application.Workbooks[i].FullName = ExcelWorkBook thenbegin
Excel.Application.EditDirectlyInCell := false;
v := Value;
Excel.Application.Workbooks[i].Sheets[1].Range[ExcelCell] := v;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Работа с ячейкой листа Microsoft Excel", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!