Hallo zusammen,

ich erhalte eine Fehlermeldung zu diesem Abschnitt.

"Ungültig Variant-Operation"

Was ist hier falsch?

zusammenfalten · markieren

Delphi-Quellcode:

  if ConnectToExcel = True
    then begin
           ExcelApp.WorkBooks.Open(LoadFromIniFile('FILE', 'Neu'));
           ExcelApp.DisplayAlerts := False;
           Cursor:=crHourGlass;
           Application.ProcessMessages;
           for i:=15 to 43
           do begin
                if ExcelApp.Range['B'+IntToStr(i), 'B'+IntToStr(i)].Value = FormatDateTime('dd.mm.yyyy', now)
                  then begin
                         ExcelApp.Range['G'+IntToStr(i), 'G'+IntToStr(i)].Value :=FormatDateTime('hh:nn', Time);
                         ExcelApp.Save;
                         ExcelApp.Quit;
                         ExcelApp := Unassigned;
                       end;
              end;
           Cursor:=crDefault;
         end
    else exit;

MfG
schuetze09

markieren

Delphi-Quellcode:

      for i:=15 to 43
           do begin
                if ExcelApp.Range['B'+IntToStr(i), 'B'+IntToStr(i)].Value = FormatDateTime('dd.mm.yyyy', now)
                  then begin
                         ExcelApp.Range['G'+IntToStr(i), 'G'+IntToStr(i)].Value :=FormatDateTime('hh:nn', Time);
                         // Falsch: die Schleife arbeitet weiter und du machst Excel zu
                         ExcelApp.Save;
                         ExcelApp.Quit;
                         ExcelApp := Unassigned; // <=== !!!
                       end;

was soll ich da noch sagen, außer

DANKE

Das Problem ist gelöst!

MfG
schuetze09