Delphi und Excel

[MaM]

Moin,

ich werd dann gleich mal mit der Tür ins Haus fallen. Ich bin im Grunde absoluter Anfänger. Jedoch habe ich in anderen Programmiersprachen schon Erfahrungen sammeln können.

So, nun meine Fragen:

- Gibt es die Möglichkeit Werte in eine Excel-Datein (*.xls) zu schreiben, OHNE das Excel dazu geöffnet werden muss (da das Öffnen längere Ladezeiten benötigt.)

- Wie kann ich ein ListView mit Daten aus der Excel-Tabelle füllen, wobei nicht in jeder Zeile Werte stehen?


Ich Danke euch schonmal im Vorraus.




MaM

[Bernhard Geyer]

Wie wäre es mal einfach mal die Foren-Suche zu bemühen.
z.B. XLS-Datei in Stringgrid...

[r_kerber]

TmxNativeExcel

[perle]

http://www.trainyard.de/wiki/doku.php?id=tut_ole_excel

[MaM]

Soweit funktioniert es erstmal, die Excel Datei wird nicht im Vordergrund sondern im TaskManager geöffnet. Nur habe ich nun das Problem, dass ich die Datei mit folgenden beiden Befehlen nicht geschlossen bekommen.

Excel.Workbooks.Close(SaveChanges:=False);
Excel.Quit;


Habt ihr dafür Lösungsvorschläge?




- Wie kann ich ein ListView mit Daten aus der Excel-Tabelle füllen, wobei nicht in jeder Zeile Werte stehen?




MaM

[Boombuler]

In der CodeLib steht auch noch was zum Thema Excel.

Greetz
Boombuler

[Bernhard Geyer]

Zitat:

Zitat von MaM

Excel.Workbooks.Close(SaveChanges:=False);
Excel.Quit;

Was für ein Typ ist den Excel.

Probier mal

Delphi-Quellcode:

Excel := Unassigned;

oder

Delphi-Quellcode:

Excel := nil;

Solange du noch einen COM-Zeiger auf deine Excel-Instanz hast darf sich Excel nicht beenden (COM-Referenzzählung).

[perle]

Excel ist ein Variant

[Bernhard Geyer]

Zitat:

Zitat von perle

Excel ist ein Variant

Dann

Delphi-Quellcode:

Excel := Unassigned;

[MaM]

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