Prüfen ob Excel Worksheet vorhanden ist

[Chemiker]

Hallo DelphiManiac,

es ist möglich die Tabellenblätter zu zählen und anschliessend mit den Tabellen-Namen zu vergleichen.

Delphi-Quellcode:

var AnzahlBlaetter: integer;
    BlattName: string;
    z: integer;
begin 
  try 
    // Ole Objekt erstellen und öffnen 
    Excel:=CreateOleObject('Excel.Application'); 
    // Excel Fenster unsichtbar machen 
    Excel.Visible:=false; 
  //  Excel.SaveData := False; 
    Excel.Workbooks.Open(ExcelName); 
    AnzahlBlaetter:= Excel.Worksheets.Count;   // Anzahl Blätter
    for z:= 1 to AnzahlBlaetter do
    begin
      BlattName:= Excel.Worksheets[z].Name;   // Alle Tablellenblätter durchlaufen
      if BlattName = 'ÜbergabeDaten' then
      // alles ok 
    end;

    Excel.activesheet.name := 'Übergabedaten'; // wie kann ich hier testen, ob es das Sheet wirklich gibt in der Exceldatei??? 
    Excel.DisplayAlerts:=false; 

  //  ShowMessage(Excel.Cells[2,2].Value); 
  except 
    Exception.Create('Falsche oder fehlerhafte Datei ausgewählt'); 
  end;

So müsste es gehen.


Bis bald Chemiker