怎样将数据查询结果导出为Excel？？

Question

怎样将数据查询结果导出为Excel？最好给出源代码，谢谢。

Answer 1

就是已经显示在DBGrid中的数据。

Answer 2

http://community.csdn.net/Expert/topic/3009/3009060.xml?temp=.6436121

Answer 3

转贴希望又帮助
在日常办公中，用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的操作很快编辑好我们有用的数据（如领导报表等），通过对Excel的控制，我们可以自动编缉好我们想要的格式和外观。
一、调用Excel的方法：一般情况下有两种方法调用Excel：
1、 直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。
2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2000:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
二、导入数据：在程序中，我们可以将查询到的数据（SQL、Access、）导入到Excel中。例如：用Adoquery查询Access中的数据：
1、先查到所需的数据；
2、导入：i:=1;
Adoquery.First;
while not Adoquery.Eof do
Begin
ExcelApp.WorkSheets[1].Cells[i,1].Value := i;//添加序号的值
ExcelApp.WorkSheets[1].Cells[i,2].Value := Adoquery.FieldByName('cp_name').AsString;
……
Inc(i);
Adoquery.Next;
End;
当然也可以把Adotable、Adoquery、Table、Query等组件的数据导入到Excel中。
三、Excel的处理：如果在你已知Excel格式的情况下，可以控制Excel,如下：
1、 显示当前窗口：ExcelApp.Visible := True;
2、 更改 Excel 标题栏：ExcelApp.Caption := '标题内容';
3、 添加新工作簿：ExcelApp.WorkBooks.Add;
4、 设置第2个工作表为活动工作表：ExcelApp.WorkSheets[2].Activate;
5、 给单元格赋值：ExcelApp.Cells[1,1].Value := '第一行第一列';
6、 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
7、 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
8、文字水平居中：Excelid.worksheets[1].Rows[1].HorizontalAlignment := $FFFFEFF4;
文字垂直居中：Excelid.worksheets[1].Rows[1].VerticalAlignment := $FFFFEFF4;
9、 插入一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
10、 删除一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;