Excel Arbeitsblatt erscheint nicht

[little_budda]

Hallo,

ich nutze folgenden Code unter D5 um ein Excel Sheet anzusprechen.

Delphi-Quellcode:

  // Excel 3 starten
  try
    XLApp3 := GetActiveOleObject('Excel.Application');
  except
    try
      //Wenn nicht eine neue erstellen
      XLApp3 := CreateOleObject('Excel.Application');
    except
      //Bei Fehler exit
      ShowMessage('Der dritte Excel-Prozess kann nicht gestartet werden!');
      Exit;
    end;
  end;

  // Excel-Datei 3 öffnen
  XLApp3.Workbooks.Open(sBaseFile3);
  XLApp3.visible := true;
  // Blatt zuweisen
  XLSheet3:= XLApp3.Workbooks[1].WorkSheets[1];

Es öffnet sich dann auch die Excel Anwendung aber das Sheet erscheit nicht.
Ich kann problemlos auf das Sheet zugreifen, nur sehen kann ich es nicht.

Hat jemand eine Iddee?

:gruebel:

[semo]

existiert die datei denn?
(eine prüfung mit fileexists(...) sollte helfen)

[little_budda]

Ja, die Datei gibt es.
Hab sie vorher händisch angelegt.

[semo]

Delphi-Quellcode:

    
const
  xlWBATWorksheet = -4167;
begin
  ....
  XLApp.Visible := True;

  //Workbook hinzufügen
  XLApp.Workbooks.Add(xlWBATWorksheet);

  //Sheets anlegen
  XLApp.Worksheets.Add();

  ...