Einzelnen Beitrag anzeigen

MaM

Registriert seit: 21. Jul 2005
19 Beiträge
 
#10

Re: Delphi und Excel

  Alt 22. Jul 2005, 12:31
Delphi-Quellcode:
procedure TForm_ExcelF.Button1Click(Sender: TObject);
var Excel: Variant;
begin
try
  // Ole Objekt erstellen und öffnen
  Excel:=CreateOleObject('Excel.Application');
  // Excel Fenster sichtbar machen
  Excel.Visible:=True;
  // Neue Arbeitsmappe erstellen
  Excel.Workbooks.Open('C:\Excel.xls');
  // In Zelle A1 schreiben
  Excel.Cells[1,1].Value:='Text!';

except

end;
end;


procedure TForm_ExcelF.BB_SchliessenClick(Sender: TObject);
var Excel : Variant;
begin
  Excel.ActiveWorkbook.SaveAs('C:\Excel.xls');
  Excel.Quit; //Beendet Excel
  Excel := Unassigned;
end;
So oben stehend der Code, ist vielleicht das Einfachste.


MaM
  Mit Zitat antworten Zitat