怎么样把数据库数据导入到EXCEL中。（在线等待）

Question

我现在想在一个特定的EXCEL中导入数据库的内容。具体怎么实现。

Answer 1

SERVER上的组件EXCELAPPLICATION与EXCEL联系，用SHEET可以将数据导入！

Answer 2

这是我的源代码，按你的要求改一改就可以了：procedure TMemberBasicInfQuery.FlatSpeedButton4Click(Sender: TObject);
var
aSheet:Variant;
i:integer;begin
//显示Ms-excel的执行过程
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,1);
aSheet:=ExcelApplication1.Worksheets.Item[1];
aSheet.cells[1,1].Value:='档案卡号';
aSheet.cells[1,2].Value:='会员姓名';
{......}//asheet.cells[20,1].Value:='总计';
i:=2;
with adoquerycustomer do
 begin  first;   while not eof do begin
  aSheet.cells[i,1].Value:=FieldbyName('hykh').Asstring;
  aSheet.cells[i,2].Value:=FieldbyName('name').Asstring;
  {.....}
  i:=i+1;  next;
 //aSheet.SaveAs('d:\qqq.xls');
 // OleContainer1.CreateobjectFromFile('d:\qqq.xls',false);
// aSheet.Application1.quit;  end;
end;
end;

Answer 3

可以参看以下帖子：
http://www.csdn.net/expert/topic/721/721411.xml?temp=.9235498