Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#1

Excel über OLE Schnittstelle ansprechen klappt nicht

  Alt 7. Mär 2007, 19:11
Hallo,

ich habe folgendes Problem, ich versuche über OLE auf eine Excelinstanz zuzugreifen, die ich selber erstelle,
dies klappt auch bei WinXP, und Office XP, nur bei Excel 97 und 2000 klappt dieser Quelltext nicht:

Delphi-Quellcode:
uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: OLEVariant;
begin
  // Create an Excel instance
  // Excel Instanz erzeugen
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Workbooks.Open('C:\test\xyz.xls');
    // you can also modify some settings from PageSetup
    // Man kann auch noch einige Einstellungen von "Seite Einrichten" anpassen
    ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
    // Print it out
    // Ausdrucken
    ExcelApp.Worksheets.PrintOut;
  finally
    // Close Excel
    // Excel wieder schliessen
    if not VarIsEmpty(ExcelApp) then
    begin
      ExcelApp.Quit;
      ExcelApp := Unassigned;
    end;
  end;
end;


Es passiert einfach gar nichts (bei Excel 97 / 2000)...
Wisst ihr warum?


Danke
Gruß
DelphiManiac
  Mit Zitat antworten Zitat