Vergleich Eingabe Edit-Feld mit Excelfeld

[Sanni13]

Hallo,

ich möchte gern herausfinden, ob eine Eingabe bereits in einer zugewiesenen Exceltabelle vorhanden ist. Dazu habe ich folgenden Quelltext geschrieben:

Delphi-Quellcode:

var Excel: OleVariant;
    i, MaxRow:Integer;
begin
  try
   Excel := CreateOleObject('Excel.Application');
  except
   ShowMessage('Excel konnte nicht gestartet werden !');
   Exit;
  end;
  Excel.Workbooks.Open('C:\Users\Programm.xls');
  Excel.Visible := true; 
  MaxRow := Excel.Rows.Count;
  for i:=1 to MaxRow do
    if Edit1.Text=Excel.Cells.Item[i,1].Value then
      ShowMessage('wird in der Datei verwendet');
end;

Das Programm lässt sich starten, zeigt mir jedoch in der Ausführung den Fehler: "Press ok to risk data corruption. Press cancel to kill the program" an. Außerdem wird auch die Nachricht nicht angezeigt, wenn der eingegebene Text in Edit1 mit dem in einer Zelle übereinstimmt. Sehe leider den Fehler nicht und hoffe ihr könnt mir helfen!

[Luckie]

Bist du sicher, dass Excel die Zeilen mit 1 anfängt zu zählen? Und nicht mit 0 wie üblich? Und was hast du beim Debuggen rausgefunden? Bist du das ganze mal in Einzelschritten durch gegangen?

[Jumpy]

Versuch es mal so mit ActiveSheet:

Delphi-Quellcode:

var Excel: OleVariant;
    i, MaxRow:Integer;
begin
  try
   Excel := CreateOleObject('Excel.Application');
  except
   ShowMessage('Excel konnte nicht gestartet werden !');
   Exit;
  end;
  Excel.Workbooks.Open('C:\Users\Programm.xls');
  Excel.Visible := true; 
  MaxRow := Excel.ActiveSheet.UsedRange.Rows.Count; //hier
  for i:=1 to MaxRow do
    if Edit1.Text=Excel.ActiveSheet.Cells[i,1].Value then //und hier
      ShowMessage('wird in der Datei verwendet');

  //Jetzt auch noch mal ein bißchen aufräumen:
  Excel.ActiveWorkbook.Close(False);
  Excel.Quit; //?
  Excel:=Nothing/nil // k.A. wie das bei OleVariants nochmal genau ging
end;

Ansonsten nochmal mit zusätzlichen Variablen für Workbook und Worksheet versuchen, dann kann man besser debuggen.

[Chemiker]

Hallo Sanni13,

Der Ausdruck:

Delphi-Quellcode:

if Edit1.Text=Excel.Cells.Item[i,1].Value then

ist problematisch, wenn in der Excel Zelle z.B. eine Zahl oder Datum steht, wird es zu einer Fehlermeldung kommen.

Des weiteren ist die Verarbeitung sehr langsam, weil die Schleife bis zur letzten Zeile von Excel durchgeführt wird.

Bis bald Chemiker