Excel Automation

[Cogito]

Hallo zusammen,

ich müsste von Delphi aus Excel Spreadsheets auslesen, also nicht jeden Wert, sondern zu bestimmten Zellen springen usw...
Ich weiß das dieses Thema schon öfter behandelt wurde, aber nach Benutzung der Suchfunktion klicke ich bereits auf der 10.ten Seite rum und finde keine Einführung oder Grundlagen, wie ich Excel ansteuern kann. Was ich bräuchte wäre vielleicht eine Rumpfapplikation wo ich sehen kann, wie man auf Excel zugreift. Kennt einer so etwas?

[Bernhard Geyer]

Wie wäre es mit einem Tutorial?

[Cogito]

Zitat von Bernhard Geyer:

Wie wäre es mit einem Tutorial?

Hmm.., das scheint fehlerhaft zu sein.
Auf der 2. Seite beim Thema "Daten an Excel übergeben" muckt der Compiler bei folgender Anweisung...

Code:

ExcelWorksheet.ConnectTo([B]ExcelWorkbook[/B].Sheets.Item[1] as ExcelWorkSheet);

mit der Fehlermeldung ..."Operator ist auf diesen Operandentyp nicht anwendbar!" Ausserdem steht im Tutorial ExcelWorkbook1 (siehe Fettdruck), was ja wohl auch falsch ist.
Kann mir jemand weiterhelfen oder hat einer noch einen anderen Vorschlag ?

[p80286]

Vielleicht hilft Dir das weiter:
(ist alles anderes als optimal aber lauffähig)

Delphi-Quellcode:

(* Liest Exceldatei *)
function LIESEXCEL(const datei:string;const sheet:integer;
                   var startzeile,endzeile,startspalte,endspalte:integer;
                   const fontinfo:boolean=false;
                   const colorinfo:boolean=false):tstringlist;
const
  DELIMMITERLINE='........';
var
  maxZeil,
  maxSpal : integer;
  ll      : tstringlist;
  i,j     : integer;
  excel   : variant;
  zelle   : ansistring; {!! shortstring=Begrenzung ; kann auch ansistring sein!}
begin
  ll:=tstringlist.Create;
  maxZeil:=0;
  maxSpal:=0;
  try
    excel:=createoleobject('EXCEL.APPLICATION');
  except
    showmessage('Excel kann nicht gestartet werden!');
    exit;
  end;
  excel.visible:=true;  { visible nur für test-zwecke }
  excel.workbooks.Open(Filename:=datei);
  excel.activeworkbook.sheets[sheet].activate;  { 1. Worksheet}
  
  {-- Excel zählt von 1..x }
  maxZeil:=excel.activesheet.usedrange.rows.count;
  maxSpal:=excel.activesheet.usedrange.columns.count;
  if StartZeile=0 then Startzeile:=1;
  if StartSpalte=0 then StartSpalte:=1;
  {---------------------}
  if endZeile>maxzeil then endZeile:=maxZeil;
  if endSpalte>maxspal then endSpalte:=maxSpal;
  for i:=startZeile to endZeile do begin
    for j:=startSpalte to endSpalte do begin
      zelle:=excel.activesheet.cells[i,j];   { Lese Wert }
      excel.activesheet.cells[i+1,j+1].select;
      if fontinfo then
        zelle:=zelle+'|'+excel.selection.font.name;
        if excel.activesheet.cells[i+1,j+1].font.Strikethrough=True then Zelle:=zelle+'(gestrichen)';
      if colorinfo then
        zelle:=zelle+'Farbe:'+inttostr(excel.activesheet.cells[i+1,j+1].font.colorindex);
      ll.Add(zelle);
    end;
    ll.add(DELIMITERLINE);
  end;
  excel.ActiveWorkbook.Close;
  excel.quit;
  result:=ll;
end;

Gruß
K-H

[FrankJ28]

Hallo,
Zitat aus dem Tutorial (was eigentlich wirklich einfach und verständlich geschrieben ist)
Nicht vergessen: Wer keine Komponenten hat muss die Variablen deklarieren und erzeugen (ExcelWorkbook:TExcelWorkbook; ExcelWorkSheet:TExcelWorksheet).
Also: Entweder Komponente auf dein Form ziehen, oder halt selbst "createn"
Ciao
Frank

[Cogito]

Zitat von FrankJ28:

Hallo,
Zitat aus dem Tutorial (was eigentlich wirklich einfach und verständlich geschrieben ist)
Nicht vergessen: Wer keine Komponenten hat muss die Variablen deklarieren und erzeugen (ExcelWorkbook:TExcelWorkbook; ExcelWorkSheet:TExcelWorksheet).
Also: Entweder Komponente auf dein Form ziehen, oder halt selbst "createn"
Ciao
Frank

Natürlich habe ich die Komponenten auf die Form gezogen...

[Cogito]

Zitat von p80286:

Vielleicht hilft Dir das weiter:
(ist alles anderes als optimal aber lauffähig)

Delphi-Quellcode:

(* Liest Exceldatei *)
function LIESEXCEL(const datei:string;const sheet:integer;
                   var startzeile,endzeile,startspalte,endspalte:integer;
                   const fontinfo:boolean=false;
                   const colorinfo:boolean=false):tstringlist;
const
  DELIMMITERLINE='........';
var
  maxZeil,
  maxSpal : integer;
  ll      : tstringlist;
  i,j     : integer;
  excel   : variant;
  zelle   : ansistring; {!! shortstring=Begrenzung ; kann auch ansistring sein!}
begin
  ll:=tstringlist.Create;
  maxZeil:=0;
  maxSpal:=0;
  try
    excel:=createoleobject('EXCEL.APPLICATION');
  except
    showmessage('Excel kann nicht gestartet werden!');
    exit;
  end;
  excel.visible:=true;  { visible nur für test-zwecke }
  excel.workbooks.Open(Filename:=datei);
  excel.activeworkbook.sheets[sheet].activate;  { 1. Worksheet}
  
  {-- Excel zählt von 1..x }
  maxZeil:=excel.activesheet.usedrange.rows.count;
  maxSpal:=excel.activesheet.usedrange.columns.count;
  if StartZeile=0 then Startzeile:=1;
  if StartSpalte=0 then StartSpalte:=1;
  {---------------------}
  if endZeile>maxzeil then endZeile:=maxZeil;
  if endSpalte>maxspal then endSpalte:=maxSpal;
  for i:=startZeile to endZeile do begin
    for j:=startSpalte to endSpalte do begin
      zelle:=excel.activesheet.cells[i,j];   { Lese Wert }
      excel.activesheet.cells[i+1,j+1].select;
      if fontinfo then
        zelle:=zelle+'|'+excel.selection.font.name;
        if excel.activesheet.cells[i+1,j+1].font.Strikethrough=True then Zelle:=zelle+'(gestrichen)';
      if colorinfo then
        zelle:=zelle+'Farbe:'+inttostr(excel.activesheet.cells[i+1,j+1].font.colorindex);
      ll.Add(zelle);
    end;
    ll.add(DELIMITERLINE);
  end;
  excel.ActiveWorkbook.Close;
  excel.quit;
  result:=ll;
end;

Gruß
K-H

Das sieht schon deutlich besser aus.
Eine kleine Sache wäre da noch:
Bei deinem Beispiel fragt Excel am Schluss immer ob die Datei gespeichert werden soll. Kann ich diese Meldung irgendwie unterdrücken?

[FrankJ28]

Jo, selbst speichern.

Excel.ActiveWorkbook.SaveAs(Dateiname);

oder
Excel.ActiveWorkbook.Save;

wenn der alte Name beibehalten bleinen soll.
Ciao
Frank

[Cogito]

Das ist aber eigentlich nicht so fein... falls die Excel Sheets beispielsweise in einem Verzeichnis mit ungenügenden Schreibrechten liegen, kracht's jedesmal. Gibt's denn keine Möglichkeit die Anzeige des Dialogs zu unterdrücken ? Ich lese aus den Sheets ja nur aus.

[Lemmy]

Hi,

Zitat von Cogito:

mit der Fehlermeldung ..."Operator ist auf diesen Operandentyp nicht anwendbar!" Ausserdem steht im Tutorial ExcelWorkbook1 (siehe Fettdruck), was ja wohl auch falsch ist.
Kann mir jemand weiterhelfen oder hat einer noch einen anderen Vorschlag ?

warum falsch? Was soll dann da stehen? Das Tutorial habe ich mit MSOffice 2000 geschrieben - keinen PLan ob das aktuell auch mit der 2007er oder 2010er läuft - habe ich leider nicht. Wenn Du die Komponenten hast, dann sollte es ein leichtes sein, den Fehler zu finden - habe ich nichts gegen einen Hinweis, dann würde ich das Tutorial aktualisieren...

Grüße