Тема: Delphi -> Excel
Показать сообщение отдельно
  #2  
Старый 23.09.2007, 17:56
~ SaM ~ ~ SaM ~ вне форума
Начинающий
 
Регистрация: 05.01.2007
Адрес: Днепропетровск
Сообщения: 141
Репутация: 25
По умолчанию

Я записываю информацию в определенную ячейку так:

Код:
Function  SetRange(sheet:variant;range:string;value_:variant):boolean;
begin
SetRange:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Range[range]:=value_;
except
SetRange:=false;
end;
End;

//Ее использование:
Код:
Procedure Form1.Button1.Click(Sender:TObject);
begin
SetRange(1,'A1','∆ƒ');  //где А1 - ячейка, в которую записываешь!
end;
Ответить с цитированием