VPF::Изменение данных в ячейках... - Форум программистов

Vilandrew

Дата 29.6.2006, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.6.2006
Где: Казань

Репутация: нет
Всего: нет

Подскажите, как сделать так, чтобы я мог изменять данные в ячейках в Excele...

Код


unit excelss;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, ExcelXP, StdCtrls;

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

var
  Form1: TForm1;
  Excel: OleVariant;

implementation

{$R *.dfm}
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
begin

Excel:=CreateOleObject('Excel.Application');

ExcelApplication1.ConnectKind:=ckNewInstance;
ExcelApplication1.AutoQuit:=true;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.AutoConnect:=true;

Excel.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'test.xls');

ExcelApplication1.Range['C1',EmptyParam].Value2:='Hello!';   // на этом месте ругается...

end;
end.

YurikGL

Дата 29.6.2006, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: 2
Всего: 2

ExcelApplication1.Range['C1','C1'].Value:='Hello!';

--------------------

Vilandrew

Дата 30.6.2006, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.6.2006
Где: Казань

Репутация: нет
Всего: нет

YurikGL,
Нет, не помогло...
И при моем и при этом случае возникает ошибка 'OLE error 800A03EC'
Заметил что компиляция зависит от Value... При Value она вообще не проходит, а как только пишу Value2, то компиляция завершается успешно...

YurikGL

Дата 1.7.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: 2
Всего: 2

Цитата(YurikGL @ 29.6.2006, 17:55)

ExcelApplication1.Range['C1','C1'].Value:='Hello!';

Поспешил в предыдущем посте smile

Код


E1:OleVariant;

E1:=CreateOleObject('Excel.Application');
E1.visible:=true;
E1.workbooks.add;
E1.activeWorkBook.ActiveSheet.Range['A1','A1'].formula:='Некий текст';
E1:=unassigned

Вроде типа того

--------------------

Vilandrew

Дата 4.7.2006, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.6.2006
Где: Казань

Репутация: нет
Всего: нет

Спасибо за помощь... smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »