uses comobj；
    var MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
    begin
    MsExcel := CreateOleObject(‘Excel.Application’);
    MsExcelWorkBook := MsExcel.Workbooks.Open(‘e:\111.xlsx’);
    MsExcel.WorkSheets[1].Activate;
    MsExcelWorkSheet := MsExcel.Worksheets.Item[1];
    MsExcelWorkSheet.saveas(‘e:\111.pdf’,57);
    MsExcelWorkBook.close;
    end;