Diagrammblatt im VBA erkennen

[omata]

Über Workbook.Worksheets werden nur die Tabellen zurückgegeben. Über Workbook.Sheets alles.

Also so...

Delphi-Quellcode:

uses ... OleServer, Excel2000 ...;
:
:
var Excel:TExcelApplication;
    lcid, i:integer;
    Workbook:_Workbook;
    WorkSheet:OleVariant;
begin
  Excel:=TExcelApplication.Create(Self);
  try
    lcid:=GetUserDefaultLCID;
    Excel.Connect;
    Excel.Visible[lcid] := true;
    Excel.UserControl:=true;

    Workbook:=Excel.Workbooks.Open(
      'Mappe1.xls',
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
      EmptyParam, EmptyParam,
      lcid
    );
    for i:=1 to Workbook.Worksheets.Count do begin
      WorkSheet:=Workbook.Worksheets[i];
      Showmessage(WorkSheet.Name);
    end;
  finally
    Excel.Disconnect;
    Excel.free;
  end;
end;