Delphi und Ecxel

[.morpheus]

wie kann ich in delphi, wenn ich mit

Delphi-Quellcode:

excel:=createoleobject('excel.application');
excel.visible:=true;

das Excel öffne, eine neue Excel mappe erzeugen?

vielen Dank für eure mühe :D

thx

[Dagon]

Hallo,

Das geht so: Excel.Workbooks.Add;

[toms]

Hi!

Das geht so:

Delphi-Quellcode:

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  excel: OleVariant;
begin
  excel := CreateOleObject('Excel.Application');
  excel.WorkBooks.Add;
  excel.Visible := True;
  excel := Unassigned;
end;

[.morpheus]

juhu es ghet

thx

wie würde dies dan gehen wenn ich die neu map noch speichern wollte??

[toms]

Excel.SaveAs('f:\ExcelDatei.xls');

PS: hier. habe ich
mal einige Befehle zum Thema Excel + OLE zusammengestellt.

[.morpheus]

Zitat:

Zitat von toms

PS: hier. habe ich
mal einige Befehle zum Thema Excel + OLE zusammengestellt.

Vielen Dank, kann ich sehr gut gebrauchen!!

mfg

[OLLI_T]

Kleiner Tipp;

Wenn Du die VBA-Befehle nicht kennst, sei es nun um Word oder Excel fernzusteuern, kannst Du im jeweiligen Prog ein Makro aufzeichnen und die Befehlsfolge daraus stibizen. Die VBA Hilfe zu den Excel bzw. Word Klassen ist auch sehr gut. Leider sind jedoch nicht alle Funktionen via COM verfügbar. Aber man kann eben nicht alles haben.

Des weiteren würde ich Dir empfehlen, mit den Kompos der importierten Typbibliothek (Rgeisterseite Servers) zu arbeiten. Der Vorteil ist hier, dass Du die Codevervollständigung von Delphi nutzen kannst.

Gruss

OLLI

[.morpheus]

Vielen Danke

werde mal probieren und kucken wie weit das ich komme.

sontst hörst du wieder von mier :stupid:

:wall:

[.morpheus]

so so schon habe ich wieder 2 frage:

1. wie kann ich die farbe einer Excel zeile änder??

2. die Zeilen breite zu ändern will nicht richtig klappen es kommt ein fehler "Exception der Klasse EOleError", hast du ne i dee an was das liegen kann???

greetz an thx

[toms]

Zitat:

1. wie kann ich die farbe einer Excel zeile änder??

Delphi-Quellcode:

Excel.Cells[y,x].Interior.Color := ...

Zitat:

die Zeilen breite zu ändern will nicht richtig klappen es kommt ein fehler "Exception der Klasse EOleError", hast du ne i dee an was das liegen kann???

Schwierig zu sagen, wenn du keinen Code postest!
So sollte es gehen:

Delphi-Quellcode:

var
   RowRange: OleVariant;
begin
  //..
  RowRange := excel.Workbooks[1].WorkSheets[1].Rows;
  RowRange.Rows[1].RowHeight := 20;
end;