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

[norwegen60]

Hallo zusammen,

ich speichere per

Delphi-Quellcode:

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

ein Excel-Dokument als PDF ab.

Wie kann ich in dem Excel-Dokument alle Arbeistblätter (und nicht nur wie oben Arbeitsblatt 2) selektieren, so dass alle als PDF gespeichert werden.

Ich habe alle Sicherheitsabfragen und den Schließvorgang aus obigem Code mal weggelassen.

Danke
Gerd

[puderle]

Nicht nur das Sheet. Du kannst auch das ganze Workbook (Arbeitsmappe) darin sind die Sheets enthalten exportieren

https://msdn.microsoft.com/de-de/lib...v=vs.100).aspx

Du kannst auch einzelne Seiten exportieren und sie später mit pdftk zusammenfügen.


Der beste Weg ist aber wahrscheinlich einfach die Sheets zu selektieren und die Auswahl dann exportieren mit

Code:

selection.exportasfixedformat()

:thumb:

[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. Mit

Delphi-Quellcode:

ovDoc.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