Собственно сабж...
Я пока только начинающий, так что сильно не пинайте... 
Появляется просто чистый 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.
|
|
