Exportar a Excel desde varias consultas SQL

[*Caro*]

Hola mjjj, nose como estes exportando, te pongo un ejemplo utilizando los componentes de la paleta Server, necesitamos un ExcelApplication, un ExcelWorkBook y un WorkSheet.

Código Delphi [-]
var
 Fila : Integer;
begin
 Fila := 1;
 ExcelApplication1.Connect;
 ExcelApplication1.Visible[0] := True;
 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
 ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);
 
 //Exportamos el primer DataSet
 IbQuery1.First;
 While Not IbQuery1.Eof do
  begin
   With ExcelWorksheet1.Cells do
    begin
     Item[Fila,1].Value := IbQuery1.FieldByName('campo1').AsString;
     Item[Fila,2].Value := IbQuery1.FieldByName('campo2').AsString;
     Item[Fila,3].Value := IbQuery1.FieldByName('campo3').AsString;
     Inc(Fila);
     IbQuery1.Next;
    end;
  end;//While
 
 //Expotamos el segundo DataSet
 IbQuery2.First;
 While Not IbQuery2.Eof do
  begin
   With ExcelWorksheet1.Cells do
    begin
     Item[Fila,6].Value := IbQuery2.FieldByName('campo11').AsString;
     Item[Fila,7].Value := IbQuery2.FieldByName('campo12').AsString;
     Inc(Fila);
     IbQuery2.Next;
    end;
  end;//While
 
  ExcelWorksheet1.Cells.Item[Fila,1].Value := 'Total';
 
  ExcelWorksheet1.Disconnect;
  ExcelWorkbook1.Disconnect;
  ExcelApplication1.Disconnect;
end;

Saluditos