Quick Report报表导出到Excel中的问题，解决后再送200!

Question

目前 用Quick.Report.Professional.v4.06.for.Delphi7第三方控件，导出Excel报表后
格式不整齐！特别是底部有分栏统计时，更加乱，不知道哪位大侠做过？或者还有其它办法解决，解决问题送200分！谢谢了

Answer 1

沙发, 关注一下. 我想知道哪个报表导出为Excel的格式
最好???

Answer 2

知道Fast Report、ReprotMachine也能导，具体效果我不知道；
程序已经做好了，所以条件还是用Quick.Report控件

Answer 3

function Tmaindb.DataSetToExcel(DataSet1: TDataSet; xlsFile: string): Boolean;
var
  ExcelFile1: TBIFF5;
  strtemp: Pchar;
  strtemp1: string;
  rFlag, cFlag: integer;
begin
  ExcelFile1.init(xlsfile);
  strtemp := stralloc(128);  DataSet1.DisableControls;
  try
    for rFlag := 0 to DataSet1.RecordCount do
      begin
        for cFlag := 0 to DataSet1.fields.Count - 1 do
          begin
            if rFlag = 0 then //写字段名
              begin
                strtemp1 := DataSet1.Fields[cFlag].DisplayName;
                strpcopy(strtemp, strtemp1);
                ExcelFile1.WriteData(CellLabel, rFlag, cFlag, strtemp);
                DataSet1.first;
              end
            else
              begin //写记录
                strtemp1 := DataSet1.Fields[cFlag].asstring;
                strpcopy(strtemp, strtemp1);
                ExcelFile1.WriteData(CellLabel, rFlag, cFlag, strtemp);
              end;
          end;
        if rFlag <> 0 then
          DataSet1.Next;
      end;
  finally
    DataSet1.EnableControls;
  end;  ExcelFile1.Done;
  result := True;
end;

Answer 4

Quick Report导出?为什么不能换个思路: 看成是DataSet的导出呢?

Answer 5

Quick Report导出?为什么不能换个思路: 看成是DataSet的导出呢?
--------------------------------------------
DataSet的导出已经有了，毕业DataSet汇总数据有限，很多统计的在DataSet中都做不到或者很难做到；用Quick Report的原因，是因Quick Report报表已经做好，现在想直接导出即可；

Answer 6

ReprotMachine 导出的效果好像最好。 看看它的demo是这样的 。