请教高手

Question

初学者在做一个系统,想完成把DBGRID表中的查询结果到处到EXCEL中,请问高手怎么来完成这个过程
需要哪些控件,编写怎样的程序.希望高手能够给出详细的步骤.小弟先谢谢了!

Answer 1

uses   ComObj;   
  procedure   Tzong_Form.BitBtn2Click(Sender:   TObject);   
  var   
      myexcel:variant;   
      workbook:olevariant;   
      worksheet:olevariant;   
      k:integer;   
  begin   
          try   
    
        myexcel:=createoleobject('excel.application');   
        myexcel.application.workbooks.add;   
        myexcel.caption:='将数据导入到EXCEL表中';   
        myexcel.application.visible:=true;   
        workbook:=myexcel.application.workbooks[1];   
        worksheet:=workbook.worksheets.item[1];   
        except   
          showmessage('EXCEL不存在！');   
        end;   
        worksheet.cells[1,1]:='年月';   
        worksheet.cells[1,2]:='余额';   
        worksheet.cells[1,3]:='收入';   
        worksheet.cells[1,4]:='支出';   
      for   k:=0   to   listview1.items.count-1   do   
          begin   
              worksheet.cells[k+2,1]:=Listview1.items[k].caption;//把第一列的数据放入Excel的第一列   
      //其他列的同理   
              worksheet.cells[k+2,2]:=Listview1.items[k].SubItems[0];   
              worksheet.cells[k+2,3]:=Listview1.items[k].SubItems[1];   
              worksheet.cells[k+2,4]:=Listview1.items[k].SubItems[2];   
    
        end;   
  end;
自已改改