Delphi 将TDBGrid导入到Excel表中附数据库

代码说明：

Delphi7.0将TDBGrid导入到Excel表中，测试程序先连接好SQLSERVER数据库，并将数据读取到TDBGrid中，然后再将数据从TDBGrid导入到Excel表中，为了测试方便，SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义，完整源码请下载： 　　//将TDBGrid表中的标题插入到Excel表中的首行 　　for I:=0 to DbName.Columns.Count-1 do 　　begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption; 　　 Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体 　　end; 　　Inc(j); //Excel表中的下一行 　　First; //将指针返回到TDBGrid表中数据的首行 　　while not Eof do 　　begin 　　 for i:=0 to DbName.Columns.Count-1 do 　　 begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 //将指定行中每列的数据，添加到Excel表中 　　 Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring); 　　 end; 　　 Inc(j); //Excel表中的下一行 　　 Next; //TDBGrid表中的下一条记录 　　end;