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