SQL7.0和Execel2000

Question

请问各位大侠，我怎样将SQL7.0中的数据经过查询在DBGrid中显示出来，再将数据插入到
Execel2000中去，请写出例子和代码，必有重谢!!!

Answer 1

这是我自己用的方法，你可以试试。
procedure ExportToExcel(ADOQry: TADOQuery);
var
  MyExcel: Variant;
  WorkBook: OleVariant;
  WorkSheet: OleVariant;
  i,j: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
     Application.MessageBox ('对不起，请确认您是否安装了EXCEL！','提示',MB_OK+MB_ICONINFORMATION);
   end;
   i:=1;  with ADOQry do
  begin
    for j:=0 to FieldCount-1 do
      worksheet.cells[1,j+1]:=Fields[j].FieldName;
    First;
    while not Eof do
    begin
      inc(i);
      try
        for j:=0 to fieldcount-1 do
          worksheet.cells[i,j+1]:=Fields[j].asstring;
        Next;
      except
        Application.MessageBox('EXCEL非法操作！','提示',MB_OK+MB_ICONINFORMATION);
      end;
    end;
  end;
end;