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
                               );