怎么样把数据分成多个字段，然后生成一个有多个sheet的excel文件呀?(50分)

怎么样把数据分成多个字段，然后生成一个有多个sheet的excel文件呀？每个sheet代表一个字段的数据

http://www.delphibbs.com/delphibbs/dispq.asp?lid=759711
看完这一帖，你应该有收获，
写到不同的sheet，就是激活不同的sheet的
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这是基本的写excel的过程
procedure TForm1.Button1Click(Sender: TObject);
var
msexcellevariant;
wbook,wsheetlevariant;
i,j:integer;
begin
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
wbook.workbooks.add;
WBook.Visible:=True;
WSheet:=WBook.ActiveSheet;
while not table1.Eof do
begin
for i:=1 to table1.recordcount do
begin
for j:=1 to table1.fields.count do
begin
wsheet.cells[i,j]:=table1.Fields[j-1].asstring;
end;
table1.Next;
end;
end;
ExcelApplication1.Save( 'C:/Excel/Demo1.xls' );
ExcelApplication1.Quit;


end;

怎么样把数据分成多个字段，不是很明白楼主这句话的意思，是不是说比喻一个表中有5字段，然后要将这5个字段分别放在5个sheet中。

nisen说的很对，我就是这个意思，不知道你有没有更好的方法

to tnokiay
你可以先把数据导入到EXCEL中,关于将数据导入到EXCEL中在以前的贴里搜索已经有很多，然后用操作EXCEL的文件添加Sheep然后用剪切的方式将EXCEL中的数据分别放到每一个Sheep中。具体操作方法如果需要的话留下你的E-mail。

好的呀，那就谢谢ninsen了，我的e—mail是tuyong@gzicbc.cn

我也在做这样的一个工具，数据源是VFOX，不过导出是一样的，但是不知道怎么自己控制加sheet，大侠们帮帮忙，谢谢了先。

接受答案了.