VPF::Не открывается .xls - Форум программистов

Vilandrew

Дата 29.6.2006, 11:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Собственно сабж...
Я пока только начинающий, так что сильно не пинайте... smile

Появляется просто чистый Excel...

Код


unit excelss;

interface

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

type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    Button1: TButton;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    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');
   end;
end.

Это сообщение отредактировал(а) Vilandrew - 29.6.2006, 12:05

comtat

Дата 29.6.2006, 12:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Почитай вот <ЭТО>

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

Рожденный в СССР !!!
ExtJS - мой фреймворк

Vilandrew

Дата 29.6.2006, 12:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Проблема решена... тему можно удалить... smile

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