DBGRID数据快速导出至Excel的详细步骤

第一天开始的方案：
      
procedure btExceloutClick; 

var 

  ExcelApp: Variant; 

  x,y:Integer; 

  a:string; 

begin 

  try 

  ExcelApp := CreateOleObject( 'Excel.Application' ); 

  ExcelApp.cells[x,5].value:=DBGrid1.Columns.Items[4].Title.Caption;             

  ExcelApp.workbooks.add; 

  adoquery.First; 

  x:=1; 

  y:=1; 

  ExcelApp.cells[x,1].value:=DBGrid1.Columns.Items[0].Title.Caption;             

  ExcelApp.cells[x,2].value:=DBGrid1.Columns.Items[1].Title.Caption;             

  ExcelApp.cells[x,3].value:=DBGrid1.Columns.Items[2].Title.Caption;             

  ExcelApp.cells[x,4].value:=DBGrid1.Columns.Items[3].Title.Caption;             

  ExcelApp.cells[x,6].value:=DBGrid1.Columns.Items[5].Title.Caption;             

  ExcelApp.cells[x,7].value:=DBGrid1.Columns.Items[6].Title.Caption;             

  ExcelApp.cells[x,8].value:=DBGrid1.Columns.Items[7].Title.Caption;             

  ExcelApp.cells[x,9].value:=DBGrid1.Columns.Items[9].Title.Caption; 

  ExcelApp.cells[x,10].value:=DBGrid1.Columns.Items[10].Title.Caption;           

  ExcelApp.cells[x,11].value:=DBGrid1.Columns.Items[11].Title.Caption;           

  ExcelApp.cells[x,12].value:=DBGrid1.Columns.Items[12].Title.Caption; 

  excelapp.cells[x,13].value:=DBGrid1.Columns.Items[15].Title.Caption; 

  while not adoquery.Eof do 

  begin                                                                          

    x:=x+1; 

    ExcelApp.cells[x,1].value:=adoquery.FieldByName('k101').AsString;