Hallo,

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

zusammenfalten · markieren

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?

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

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

zusammenfalten · markieren

Delphi-Quellcode:

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

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

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

  ...