Запись формулы в MS Excel из под Delphi

@Nikitok04 · Регистрация: 14.08.2014

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые форумчане))) Использую раннее связывание. При попытке записать формулу в ячейку выдает ошибку ole сервера. Запись происходит следующим образом:

Delphi

1	ExcelWorksheet1.Range['C8','C8'].Formula:='=SUM('+chr(39)+'Камера1:Камера4'+chr(39)+'!C8)';

Где chr(39) - это ' зарезервированный знак делфяки.
Помогите пожалуйста советом, как верно записать формулу)

@Mawrat · 14.11.2014, 16:48

Например, если надо записать формулу суммирования ряда ячеек C1:C8, расположенных на листе с именем "Лист2":

Delphi

1	ExcelWorksheet1.Range['C8'].Formula := '=SUM(''Лист2''!C1:C8)';

Что касается одиночной кавычки ' - чтобы задать её в строковом или символьном литерале, её надо удвоить:

Delphi

var
  S : String;
begin
  S := 'Пример одиночной кавычки в строковом литерале: ''слово''.'
  Memo1.Text := S;
end;

В результате выполнения этого кода в Memo1 будет напечатано:

Пример одиночной кавычки в строковом литерале: 'слово'.

Если в строковом или символьном литерале надо задать какой-нибудь символ через его код, это удобно делать с помощью знака #:

Delphi

var
  S : String;
begin
  S := 'Строка1'#13#10'Строка2'#13#10'Строка3';
  Memo1.Text := S;
end;

В Memo1 будет напечатано:

Строка1
Строка2
Строка3

Код символов можно задавать в шестнадцатеричной системе счисления с использованием знака $:

Delphi

var
  S : String;
begin
  S := 'Строка1'#$D#$A'Строка2'#$D#$A'Строка3';
  Memo1.Text := S;
end;

@Nikitok04 · 16.11.2014, 01:02 **[ТС]**

Спасибо за совет с дублированием кавычек) Но каким образом не записываю кавычки в формулу excel выдает ошибку, а в блок Memo, listBox и прочие записывает на ура вместе с кавычками, все как положено)

@dim07 · 17.11.2014, 13:49

Delphi

1	Sheet.Cells[n+1,19].FormulaLocal:='=СУММЕСЛИ($AH$6:$AH$11047;"=0";$AI$6:$AI$11047)';

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

@Nikitok04 2 / 2 / 1 Регистрация: 14.08.2014 Сообщений: 11
	16.11.2014, 01:02 [ТС]	3
	Спасибо за совет с дублированием кавычек) Но каким образом не записываю кавычки в формулу excel выдает ошибку, а в блок Memo, listBox и прочие записывает на ура вместе с кавычками, все как положено) 0

	17.11.2014, 13:49

Опции темы