Per Delphi-OLE PDF über mehrere Excel-Arbeitsblättern erstellen

[norwegen60]

Hallo,

genau das sind eigentlich die zwei Wege, die ich probiert habe.
Als Workbook

Delphi-Quellcode:

var
      ovExcelApp, ovDoc: OLEVariant;
begin
   ovExcelApp := CreateOLEObject('Excel.Application');
   ovExcelApp.Visible := False;
   ovDoc := ovExcelApp.Workbooks.Open(sDocument, EmptyParam, true, EmptyParam, sPW, sPW, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
   ovDoc.Workbooks.ExportAsFixedFormat(0, sVersDoc, EmptyParam,
                                EmptyParam,
                                EmptyParam,
                                EmptyParam,
                                EmptyParam,
                                EmptyParam, //set to True to open Acrobat
                                EmptyParam
                                );

kommt die Fehlermeldung

Zitat:

EOleEerror. Die Methode 'Doc' wird vom Automatisierungsobjekt nicht unterstützt

und bei meinem anderen Code suche ich ja gerade die Möglichkeit, wie ich die einzelnen Sheets selektieren kann. MitovDoc.Sheets[2].Select; wird eben nur Blatt 2 selektiert und ein Array wird nicht akzeptiert. Oder ich gebe es falsch an.

Noch ein Tip der mir weiter hilft?
Gerd