亟待解决的问题，100分全给。

Question

FastReport或QuickReport如何导出报表为XLS格式（注意不是CSV）？请说明详细方法或者有代码最好！公司急用！！

Answer 1

ExcelApplication1.Connect;
      ExcelApplication1.Visible[0]:=True;
      ExcelApplication1.Workbooks.Add(NULL,0);
      ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
      ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
      i:=1;
      ExcelWorksheet1.Cells.Font.Size:='12';
      ExcelWorksheet1.Cells.Font.Name:=FontName;
      ExcelWorksheet1.Cells.ITEM[1,1].Font.FontStyle:='Bold';
      ExcelWorksheet1.Cells.ITEM[1,1].Font.Size:='16';
      ExcelWorksheet1.Cells.Item[1,1]:='Unicode Report';
      ExcelWorksheet1.Cells.Item[2,1]:='('+sDate+')';
      ExcelWorksheet1.Columns.VerticalAlignment:=xlcenter;
      ExcelWorksheet1.Cells.HorizontalAlignment:=XlLeft;
      ExcelWorksheet1.Columns.Range_['A1','A2'].ColumnWidth:=14;
      ExcelWorksheet1.Columns.Range_['B1','B2'].ColumnWidth:=70;
      ExcelWorksheet1.Columns.Range_['C1','C2'].ColumnWidth:=30;
      ExcelWorksheet1.cells.Item[1,2].HorizontalAlignment:=xlright;
      ExcelWorksheet1.cells.Item[1,3].HorizontalAlignment:=xlleft;
      with frmdm do
...
....对数据进行操作
...
        ExcelWorksheet1.Columns.Range_['A4','B'+inttostr(i)].Borders.LineStyle:=1;;
        ExcelWorksheet1.PageSetup.PaperSize:=xlPaperLetter;
        ExcelApplication1.Disconnect;
        ExcelApplication1.Quit;

Answer 2

不错呀！顺便多问一句，我要是想创建一个xls文件，怎么实现？谢谢你，再给我关于这个的代码我就给分！

Answer 3

还有，如何让Cells中某个Item自动换行？

Answer 4

var
  i: Integer;
  s: string;
begin
  if RMPreview1.Doc = nil then
    Exit;  s := RMLoadStr(SRepFile) + ' (*.rmp)|*.rmp';
  for i := 0 to RMFiltersCount - 1 do
    s := s + '|' + RMFilters(i).FilterDesc + '|' +
        RMFilters(i).FilterExt;  SaveDialog.Filter := s;
  SaveDialog.FilterIndex := 3;
  try
  if SaveDialog.Execute then
  begin
    RMPreview1.SaveToFile(SaveDialog.FileName, SaveDialog.FilterIndex);
    showmessage('文件导出成功！');
  end;
  except
    showmessage('文件导出失败！');
  end;

Answer 5

在fastreport中让Cells中某个Item自动换行，就是右键单击它，选择自动扩展（英文好象是streched，不太记得，英文太差呵呵）。如果需要cells中所有的item都自动换行。band也有个自动扩展的属性。