ole error 800a03Ec

[eragon123]

Ich schreibe gerade ein Programm welches unter anderem Daten per OLE aus einem Excel Blatt ausließt. Nachdem dies lange Zeit funktioniert hat geht es jetzt komischer Weise plötzlich nicht mehr obwohl ich eigentlich nichts verändert habe. Nur Code der diesen Bereich gar nicht betrifft. Aufgetreten ist der Fehler: ole error 800a03Ec. Ich hoffe ihr könnt mir helfen den zu beheben. Ich nutze Delphi 7 und Excel 2003.

[daywalker9]

Zeig doch mal ein bisschen Code, wo der Fehler aufläuft

[eragon123]

Das sieht so aus (Ausschnitt in dem der rote Balken erscheint).

Delphi-Quellcode:

procedure TForm1.einlesen;
var excel: Variant; i,a: Integer;
begin
  try
    Excel :=  CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Exit;
  end;

  // Laden
  try
    Excel.workbooks.open(edtspeicherort.Text);
  except
    ShowMessage('Datei konnte nicht geöffnet werden');
    Excel.free;
    Exit;
  end;

  excel.EditDirectlyInCell := True; // Hab versucht ob das vielleicht hilf?? Tut es nicht...

  // Daten lesen
  anzahl := excel.cells[1,2].value;  //Anfangsdaten
  setlength(maxwert,anzahl);
  pb1.Max := anzahl;
  maxwert[0] := excel.cells[3,4].value;


  for i := 0 to anzahl do                // So viele Datensätze werden eingelesen
  begin
    maxwert[i] := excel.cells[3+summe(i),4].value;            //Aktuelle Anzahl an Werten          // HIER meckert er!!
    datum[i+1] := excel.cells[3+summe(i),2].value;
    pb1.Position := i;

Wobei:

Delphi-Quellcode:

    datum: array[1..100] of string;
    maxwert: array of Integer;
    anzahl: Integer;

Aber wie gesagt es hat lange Zeit funktioniert... komischer Weise tritt der Fehler erst seit kurzen auf.

[daywalker9]

Was genau macht den

Delphi-Quellcode:

Summe(i)

?

[eragon123]

Delphi-Quellcode:

function TForm1.summe(index: Integer): Integer;
var i: Integer;
begin
  result := 0;
  if index > 0 then
  begin
    for i := 0 to index do
      Inc(Result,maxwert[i]+5);
  end;
end;

Das ganze springt einfach an die richtige Stelle im Excel sheet in dem alle vorherigen Datensätze in der neuen Koordinate berücksichtigt werden.

[eragon123]

Problem scheint erstmal behoben zu sein. Ich hab an da noch ein -1 an 2 Stellen vergessen gehabt,