Delphi World - Работа с ячейкой листа Microsoft Excel
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Работа с ячейкой листа Microsoft Excel

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

{ **** 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 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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования