Delphi excel вставка формул

Вставка формулы в Excel

Bas	Сообщ. #4 , 27.09.04, 05:48
	Замни на FormulaR1C1 как это делает сам Excel ActiveCell.FormulaR1C1 = «=VALUE(RC[-4])»

Miscђka	Сообщ. #13 , 05.10.04, 02:12
	Цитата Jureth, 4.10.04, 08:46 Переустановил бы Офис — ради разработки приложения можно и попотеть немного. офис можно и доустановить, не удаляя его полностью

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

формула в ячейку Excel помещается так:

var
  Range, Sheet, Excel, v: Variant;
    
begin
  Excel := CreateOleObject('Excel.Application');
  Sheet := Excel.Workbooks[1].Sheets[1];
  Sheet.Cells[i, j] := '=(2+2)';                    // занесение формулы
  Sheet.Cells[i, j] := '=СУММ(A1:A8)';        // занесение формулы
  Excel.Visible := true;
end;

вопрос в том, как заставить Excel ее вычислить, потому как вместо результата в ячейке светится #ИМЯ? и подсказка «формула содержит нераспознанный текст» и если после этого установить курсор на строку с форулой и просто нажать Enter то формула прекрасно вычисляется… Как сделать то же самое программным методом?
причем строка «=(2+2)» вычисляется нормально.
насколько я понял распознать оно не может слово «СУММ».
также пытался делать нечто вроде

  Sheet.Cells[y, i].Calculate;

но это ничего не меняет…

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

A>формула в ячейку Excel помещается так:
A>

A>var
A>  Range, Sheet, Excel, v: Variant;
    
A>begin
A>  Excel := CreateOleObject('Excel.Application');
A>  Sheet := Excel.Workbooks[1].Sheets[1];
A>  Sheet.Cells[i, j] := '=(2+2)';                    // занесение формулы
A>  Sheet.Cells[i, j] := '=СУММ(A1:A8)';        // занесение формулы
A>  Excel.Visible := true;
A>end;    
A>

A> вопрос в том, как заставить Excel ее вычислить, потому как вместо результата в ячейке светится #ИМЯ? и подсказка «формула содержит нераспознанный текст» и если после этого установить курсор на строку с форулой и просто нажать Enter то формула прекрасно вычисляется… Как сделать то же самое программным методом?
A> причем строка «=(2+2)» вычисляется нормально.
A> насколько я понял распознать оно не может слово «СУММ».
A> также пытался делать нечто вроде
A>

A>  Sheet.Cells[y, i].Calculate;    
A>

A>но это ничего не меняет…

Правильно будет написать вот так:

Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы

Имена формул надо писать по-английски. И будет тебе счастье. Причем, неважно — русский или аглицкий ексель у тебя стоит.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

Попробуй написать так:

Sheet.Cells[i, j].Formula := '=SUMM(A1:A8)';        // занесение формулы

Re[2]: передать формулу в Excel

Здравствуйте, Horror_Infinity, Вы писали:

H_I>Правильно будет написать вот так:
H_I>

H_I>Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы
H_I>

H_I>Имена формул надо писать по-английски. И будет тебе счастье. Причем, неважно — русский или аглицкий ексель у тебя стоит.

Спасибо за отклик, попробовал, но в результате тот же «#ИМЯ?» вместо результата, та же подсказка, но вдобавок теперь если установить курсор на строку с формулой в ячейке и нажать Enter то ничего не меняется, тоесть похоже «SUMM» эксель не понимает впринципе… Может где то переключить что нибудь нужно, чтоб англоязычные функции понимал? Эксель из пакета «OFFICE 2003»

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[2]: передать формулу в Excel

Здравствуйте, Danchik, Вы писали:

D>Попробуй написать так:
D>

D>Sheet.Cells[i, j].Formula := '=SUMM(A1:A8)';        // занесение формулы
D>

Как я уже отвечал Horror_Infinity, применение «SUMM» ничего не дает, и Excel понимает только «СУММА»… Применение «.Formula» к сожалению таже ничего не меняет.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[3]: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

H_I>>

H_I>>Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы
H_I>>

A>Спасибо за отклик, попробовал, но в результате тот же «#ИМЯ?» вместо результата, та же подсказка, но вдобавок теперь если установить курсор на строку с формулой в ячейке и нажать Enter то ничего не меняется, тоесть похоже «SUMM» эксель не понимает впринципе… Может где то переключить что нибудь нужно, чтоб англоязычные функции понимал? Эксель из пакета «OFFICE 2003»

Сорри за опечатку!
Конечно же, надо написать вот так:

Sheet.Cells[i, j] := '=SUM(A1:A8)';        // занесение формулы

З.Ы. На будущее. Очень легко подсмотреть, как правильно писать формулы: Включаешь запись макроса в Екселе, пишешь нужную тебе формулу, останавливаешь запись, идешь в редактор макросов и смотришь, как надо тебе в дельфе написать, чтоб все работало.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Re[4]: передать формулу в Excel

Здравствуйте, Horror_Infinity, Вы писали:

H_I>Сорри за опечатку!
H_I>Конечно же, надо написать вот так:
H_I>

H_I>Sheet.Cells[i, j] := '=SUM(A1:A8)';        // занесение формулы
H_I>

H_I>З.Ы. На будущее. Очень легко подсмотреть, как правильно писать формулы: Включаешь запись макроса в Екселе, пишешь нужную тебе формулу, останавливаешь запись, идешь в редактор макросов и смотришь, как надо тебе в дельфе написать, чтоб все работало.

Спасибо, SUM сработало, причем если SUM набирать в формуле вручную то Excel ее не понимает, что меня и сбило с толку, однако при программном занесении в ячейку конвертирует в «СУММ» и нормально вычисляет.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[2]: передать формулу в Excel

Здравствуйте, Dimonka, Вы писали:

D>Тут отвечали на похожий вопрос:
D>http://rsdn.ru/Forum/?mid=1353352&amp;flat=0

Автор: wildwind
Дата: 30.08.05

Спасибо, применение «SUM» помогло

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[3]: передать формулу в Excel

что бы эксель понимал формулы с кирилическими символами вроде СУММ нодо писать так

Sheet.Cells[i, j].FormulaLocal := '=СУММ(A1:A8)'

Re[4]: передать формулу в Excel

Здравствуйте, NRiS, Вы писали:

NRS>что бы эксель понимал формулы с кирилическими символами вроде СУММ нодо писать так

NRS>

NRS>Sheet.Cells[i, j].FormulaLocal := '=СУММ(A1:A8)'
NRS>

Тогда английский ексель перестает понимать такие формулы. Как быть? У меня (да и не только у меня) стоит именно оригинальная английская версия.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Создание документа

Внимание!!! Всегда когда создаете объект интерфейса, заключайте  процедуру создания в модуль обработки ошибок:
try
создаем интерфейс;
формируем отчет;
освобождаем интерфейс;
Except
обрабатываем ошибки;
освобождаем интерфейс;
end;

Далее идет краткий справочник по основным функциям работы с EXCEL

try
// создаем обьект EXCEL
excel := CreateOleObject(‘Excel.Application’);

// Чтоб не задавал вопрос о сохранении документа
excel.DisplayAlerts := false;

// создаем новый документ рабочую книгу
excel.WorkBooks.Add;

// или загружаем его из директории с программой
excel.WorkBooks.Open(GetCurrentDir() + ‘отчет.xls’);

{ GetCurrentDir()- возвращает путь к директории с программой}

// Делаем его видимым данную функцию после отладки и тестирования лучше использовать в конце, после сформирования отчета (это ускоряет процесс вывода данных в отчет)
excel.Visible := true;

//задаем тип формул в формате R1C1
excel.Application.ReferenceStyle := xlR1C1;

// задаем тип формул в формате A1
excel.Application.ReferenceStyle := xlA1;

// Задаем название первому и второму листу
excel.WorkBooks[1].WorkSheets[1].Name := ‘Отчет1’;
excel.WorkBooks[1].WorkSheets[2].Name := ‘Отчет2’;

//задаем формат числа для первой и четвертой колонки формат числа
excel.WorkBooks[1].WorkSheets[1].Columns[1].NumberFormat := ‘0,00’;
excel.WorkBooks[1].WorkSheets[1].Columns[4].NumberFormat := ‘0,0’;

// задаем ширину первой и второй колонки
excel.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 10;
excel.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 20;

// задаем начертание, цвет, размер и тип шрифта для первого ряда
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True; //жирный
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clRed;  // цвет красный
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 12;  //размер 12
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := ‘Times New Roman’;  //шрифт

//присваиваем ячейке 1,4 и 2,4 значения (1 — ряд, 4 — колонка)
excel.WorkBooks[1].WorkSheets[1].Cells[1, 4] := ‘А так можно внести значение в ячейку’;
excel.WorkBooks[1].WorkSheets[1].Cells[2, 4] := ‘А так можно внести значение в ячейку’;

//ввод в ячейку ‘A12’ формулы ‘=b5+c4’
excel.WorkBooks[1].WorkSheets[1].Range[‘A12′].Formula:=’=b5+c4’;

// Выравнивам первый ряд по центру по вертикали
excel.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment := xlCenter;

// Выравнивам первый ряд по центру по горизонтали
excel.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := xlCenter;

// Выравнивам в ячейке по левому краю
excel.WorkBooks[1].WorkSheets[1].Cells[3, 2].HorizontalAlignment := xlLeft;

// Выравнивам в ячейке по правому краю
excel.WorkBooks[1].WorkSheets[1].Cells[3, 4].HorizontalAlignment := xlRight;

// Обьединяем ячейки ‘A1:A8’
excel.WorkBooks[1].WorkSheets[1].Range[‘A1:A8’].Merge;

// Поворачиваем слова под углом 90 градусов для второго ряда
excel.WorkBooks[1].WorkSheets[1].Rows[2].Orientation := 90;

// Поворачиваем слова под углом 45 градусов для диапазона ячеек ‘B3:D3’
excel.WorkBooks[1].WorkSheets[1].Range[‘B3:D3’].Orientation := 45;

//рисуем границы  выделенного диапазона левая
excel.Selection.Borders[xlEdgeLeft].LineStyle := xlContinuous; // стиль линии сплошная
excel.Selection.Borders[xlEdgeLeft].Weight := xlMedium;// толщина линии

//рисуем границы  выделенного диапазона верхняя
excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeTop].Weight := xlMedium;

//рисуем границы  выделенного диапазона нижняя
excel.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeBottom].Weight := xlMedium;

//рисуем границы  выделенного диапазона правая
excel.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeRight].Weight := xlMedium;

//рисуем границы  выделенного диапазона вертикальные внутрениие
excel.Selection.Borders[xlInsideVertical].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideVertical].Weight := xlMedium;

//рисуем границы  выделенного диапазона горизонтальные внутрениие
excel.Selection.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideHorizontal].Weight := xlMedium;

//автозаполнение выделенного диапазона
//для примера заполним область ячеек ‘A10:C10’ словом ‘привет’
//и размножим его вниз еще на пять ячеек ‘A10:C15’
excel.WorkBooks[1].WorkSheets[1].Range[‘A10:C10′].Value:=’привет’;

//выделяем диапазон ячеек ‘A10:C10’
excel.WorkBooks[1].WorkSheets[1].Range[‘A10:C10’].Select;

//автозаполняем (копируем) выделенным диапазоном область ячеек ‘A10:C15’
excel.selection.autofill(excel.WorkBooks[1].WorkSheets[1].Range[‘A10:C15’],xlFillDefault);

//отключаем предупреждения, чтобы не задавал вопросов о сохранении и других
excel.DisplayAlerts := False;

 //сохраняем документ в формате Excel 97-2003
 excel.ActiveWorkBook.Saveas(GetCurrentDir() + ‘отчет.xls’,xlExcel8);

 //сохраняем документ в текущем формате Excel 2007
 excel.ActiveWorkBook.Saveas(GetCurrentDir() + ‘отчет.xlsx’);

//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
excel := Unassigned;

Except

//обрабатываем ошибки
showmessage(‘Внимание! Произошла ошибка при создании MS Excel приложения’);

//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
excel := Unassigned;
end;
end;

При работе с листом Excel мы можем использовать следующие варианты:
— работать с областью Range[‘B3:D3’];
— работать с ячейкой Cells[2, 4] где 2 — ряд, 4 — колонка;
— работать с рядами Rows[1] или с диапазоном рядов Rows[‘1:5’];
— работать с колонками Columns[1] или диапазоном колонок Columns[‘A:I’];

Range[‘A1’] и Cells[1, 1] обозначают одно и тоже.

После сформирования документа или возникновении ошибки вы должны правильно освободить интерфейсы.
Иначе при закрытии Excel он скрывается с экрана, но если открыть диспетчер задач он продолжает там висеть и если данный процесс не завершить , то при каждом новом запуске их будет накапливаться больше и больше, пока компьютер не начнет виснуть. Поэтому обязательно необходимо освобождать все интерфейсы с вязанные с Excel с его книгами и листами.

Например так:
//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
sheet:=Unassigned; //интерфейс листа если он был создан
WorkBook := Unassigned;//интерфейс рабочей книги если он был создан
excel := Unassigned;//интерфейс самого предложения если он был создан

end;

Ниже привожу пример вывода в Excel из Delphi таблицы умножения с подробными комментариями.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, comobj, StdCtrls, Excel_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  excel: variant; // Переменная в которой создаётся объект EXCEL
  MyData: variant; // Переменная в которой формируется таблица умножения
  i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
// Обьект EXCEL
excel := CreateOleObject(‘Excel.Application’);
// Чтоб не задавал вопрос о сохранении документа
excel.DisplayAlerts := false;
// новый документ
excel.WorkBooks.Add;

//объявляем вариантный массив
MyData := VarArrayCreate([1,9,1,9],varVariant);
for I := 1 to 9 do
for J := 1 to 9 do
  MyData[i,j]:=i*j;

// Обьединяем ячейки ‘A1:I1’
excel.WorkBooks[1].WorkSheets[1].Range[‘A1:I1’].Merge;
//Пишем заголовок
excel.WorkBooks[1].WorkSheets[1].Range[‘A1′].Value:=’Таблица умножения’;
// Выравнивам заголовок по центру
excel.WorkBooks[1].WorkSheets[1].Range[‘A1’].HorizontalAlignment := xlCenter;
// задаем ширину  колонок с A по I
excel.WorkBooks[1].WorkSheets[1].Columns[‘A:I’].ColumnWidth := 3;

//выделяем область таблицы умножения [‘A2:I10’] и рисуем границы
excel.WorkBooks[1].WorkSheets[1].Range[‘A2:I10’].select;
//рисуем границы  выделенного диапазона левая
excel.Selection.Borders[xlEdgeLeft].LineStyle := xlContinuous; // стиль линии сплошная
excel.Selection.Borders[xlEdgeLeft].Weight := xlThin;// толщина линии
//рисуем границы  выделенного диапазона верхняя
excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeTop].Weight := xlThin;
//рисуем границы  выделенного диапазона нижняя
excel.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeBottom].Weight := xlThin;
//рисуем границы  выделенного диапазона правая
excel.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeRight].Weight := xlThin;
//рисуем границы  выделенного диапазона вертикальные внутрениие
excel.Selection.Borders[xlInsideVertical].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideVertical].Weight := xlThin;
//рисуем границы  выделенного диапазона горизонтальные внутрениие
excel.Selection.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideHorizontal].Weight := xlThin;

//присваиваем диапазону [‘A2:I10’] значения вариантного массива  MyData это значительно ускоряет работу, нежели вывод по //ячеечно

excel.WorkBooks[1].WorkSheets[1].Range[‘A2:I10’].Value:=MyData;

// Делаем его видимым
excel.Visible := true;
//освобождаем интерфейсы
MyData:= Unassigned;
excel := Unassigned;
Except
showmessage(‘Внимание! Произошла ошибка при создании MS Excel приложения’);
//закрываем Excel
excel.Application.quit;
//освобождаем интерфейсы
MyData:= Unassigned;
excel := Unassigned;
end;
end;

end.

При написании статьи использовался материал с сайта http://vlad2000.h1.ru/Frames/Statyi/page_14.html