Excel: Tabellenblatt wechseln

[Thorben_K]

jedoch möchte ich dich drauf hin weisen das der try exepct block so nicht richtig arbeiten

Delphi-Quellcode:

var 
  Excel: OleVariant; 
  i,j: integer; 
begin 
  try 
    Excel := CreateOleObject('Excel.Application'); 

  Excel.WorkBooks.Open(Pfad); 

  for i := 1 to 94 do for j := 1 to 16 do Tabelle[i,j] := Excel.ActiveSheet.Cells.Item[i+1,j].value; 

  Excel.Workbooks.Close; 
  Excel.Quit; 

  except   // <- hier muss der hin
    MessageDlg('Kein Excel installiert',mtError,[mbOk],0); 
  end; 
end;

sonnst versucht der mit dem nicht Initalisierten Object "excel zu arbeiten, was unweigerlich zu problemen führt.

altanativ ginge natürlich auch

Delphi-Quellcode:

var 
  Excel: OleVariant; 
  i,j: integer; 
begin 
  try 
    Excel := CreateOleObject('Excel.Application'); 
  except 
    MessageDlg('Kein Excel installiert',mtError,[mbOk],0); 
    Exit;
  end; 
  Excel.WorkBooks.Open(Pfad); 

  for i := 1 to 94 do for j := 1 to 16 do Tabelle[i,j] := Excel.ActiveSheet.Cells.Item[i+1,j].value; 

  Excel.Workbooks.Close; 
  Excel.Quit;   
 end;