[jafera]

Gracias por la respuesta Oscarac.

Al final he optado por el uso del componente SCExcelExport que simplifica bastante el trabajo, os adjunto el código:

Código Delphi [-]
procedure TF_GeneracioFullPagament.BtnExcelClick(Sender: TObject);
begin
        scExcelExport1.WorksheetName := 'Subvencions Carnaval '+ComboBox1.Text;
        scExcelExport1.Dataset:=IBExcel1;
        IBExcel1.Close;
        IBExcel1.SQL[6] := 'AND C.ANIO='+ComboBox1.Text;
        IBExcel1.Open;
        scExcelExport1.StyleColumnWidth:=cwOwnerWidth;
        scExcelExport1.ColumnWidth := 20;
        scExcelExport1.HeaderText.Text:='Sunvenció colles carnaval any '+ComboBox1.Text;
        scExcelExport1.FontHeader.Size:=12;
        scExcelExport1.BeginRowHeader:=2;
        scExcelExport1.BeginRowTitles:=4;
        scExcelExport1.BorderTitles.BackColor := clBlue;
        scExcelExport1.FontTitles.Color:=clWhite;
        scExcelExport1.SummarySelection := ssValues;
        scExcelExport1.SummaryCalculation := scSUM;
        scExcelExport1.StyleColumnWidth:=cwAutoFit;
        //scExcelExport1.ExcelWorkSheet.PageSetup.Orientation:= xlLandscape;
        scExcelExport1.ExcelVisible:=True;

        try
                scExcelExport1.ExportDataset;
        if Assigned(scExcelExport1.ExcelWorkSheet) then
                scExcelExport1.SaveAs('C:\Carnaval_1.0\Fulles Excel\Subvencio Carnaval '+ComboBox1.Text+'.xls',ffXLS);
        finally
                scExcelExport1.Disconnect;
        end;
end;

Funciona bien excepto la linea comentada que me arroja un error de Interface Not Supported.
Olvido algun paso o colocar algo en uses?

Gracias

Josep