怎么将 Delphi 7 中的数据集导入Excel表中???

怎么将Delphi 7里查询出来的数据集导入到Excel表中？？？

答案：我这里有个例子 希望可以帮到你.. 下面只是EXCEL的操作原理  可以自己去扩展
--------------------------
放三个DELPHI自带的Severs下的ExcelApplication，ExcelWorkbook，ExcelWorksheet三个控件
代码如下：
procedure TForm1.btn1Click(Sender: TObject);
var
  I,J: Integer;
begin
  try
    begin
     ExcelApplication1.Workbooks.Add(EmptyParam, 0);
     ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
     ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
     for i := 2 to 3 do
       begin
        for j := 1 to 5 do
           begin
              ExcelWorksheet1.Cells.item[i, j ] :='1';
           end;
        end;
      ExcelWorksheet1.Columns.AutoFit;
      ExcelWorksheet1.Cells.item[1, j/2] := 'aab';//标题单元格的内容
      ExcelWorksheet1.Cells.ColumnWidth:='10'; //设置单元格的宽度
      ExcelWorksheet1.Cells.RowHeight:='15'; //设置单元格的高度
      ExcelWorksheet1.Cells.Font.Size:='10'; //设置单元格字体的大小
      ExcelWorksheet1.Cells.Font.Color:=clred;
      ExcelWorksheet1.Cells.Item[1, j/2].font.size :='14';//标题单元格字体的大小
      ExcelWorksheet1.SaveAs('D:\a.xls');    //保存EXCEL 以及命名文件名
      Application.Messagebox(pchar('数据成功导出'), 'Hello',mb_Ok);
     end
  finally
     ExcelApplication1.Disconnect; //断开连接
     ExcelApplication1.Quit; //退出EXCEL
     ExcelApplication1.Free;//释放空间
     ExcelWorksheet1.Free; //释放空间
     ExcelWorkbook1.Free; //释放空间
   end;
end;

其他：用了楼上的例子
觉得ExcelWorksheet1.Columns.AutoFit;好像没什么用
另外ExcelWorksheet1.Cells.ColumnWidth:='10'之类的语句一用就所有列都是10了，我想不同的列不同的宽度。
当我正在用EXCEL编辑其他文件的时候，这段代码执行完，把我其他打开的EXCEL都关闭了，而且还不保存，EXCEL报错。 

上一个：delphi实现下面的功能需要什么组件？
下一个：Delphi实现如下功能需要什么组件？