OLE - Excel

implementation

uses
  ComObj, Excel_TLB;

var
  XL: Excel_TLB.Application_;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  XLSheets: Sheets;
  XLSheet: _WorkSheet;
  XLBooks: WorkBooks;
  XLBook: WorkBook;
begin
  XL := Excel_TLB.CoApplication_.Create;
  XL.Visible[0] := True;
  XLBooks := XL.Workbooks as WorkBooks;
  XLBooks.Add(XLWBatWorkSheet, 0);
  XLBook := XLBooks.Item[1];
  XLSheets := XLBook.Worksheets;
  XLSheet := XLSheets.Get_Item(1) as _WorkSheet;
  XLSheet.Name := \'Test\';
  XLSheet.Cells.Item[1, 1] := Edit1.Text;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if not VarIsEmpty(XL) then
  begin
    XL.DisplayAlerts[0] := False;
    XL.Quit;
  end;
end;


Husk at importere type libraryet fra excel9.olb

Prøv denne her:


uses ComObj;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  excel:Variant;
begin
  try
    excel:=CreateOleObject(\'Excel.Application\');
  except
    ShowMessage(\'Hej.\');
    exit;
  end;
  excel.Visible:=true;
  excel.Workbooks.Add;
  excel.Cells[1,1].Value:=\'Hej!\';
  excel.Cells[2,1].Value:=\'Hej igen!\';
end;

Jeg skal lige havde lukket for dette spørgsmål
- Tak for hjælpen

compolios >> Selv tak ;-)