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!