怎样把DELPHI的数据转成EXCEL输出问题!!!!!

Question

用XLSReadWrite一个格子一个格子的写啊

Answer 1

在 excel 里面组做 模板，也就是格式化你的输出
然后将 数据送到模板里面就可以了
这个方法，是用excel 输出数据最方便的方法。

Answer 2

记录与记录之间用TAB空开就可以用EXCEL打开

Answer 3

procedure TOfficeform.Button2Click(Sender: TObject);
var MSExcel:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.XLS|*.XLS';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
  MSExcel:=CreateOLEObject('Excel.Application');
  MSExcel.WorkBooks.Add;
  MSExcel.Visible:=False;
  Table1.Open;
  j:=Table1.RecordCount;
  Table1.First;
  for i:=1 to j do
  begin
    MSExcel.Cells[i,1].NumberFormat:='@';
    MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString;
    MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString;
    Table1.Next;
  end;
  MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
  MSExcel.ActiveWorkBook.Saved:=True;
  MSExcel.Quit;
end;
end;

Answer 4

参考李维的《ADO/COM+/MTS》，
可采用ADO格式。

Answer 5

通用程序。Copy可用。不过用完了要给我加分呀。我是刚来CSDN，分数太低。请照。
var
RangeE: Excel97.Range;
I, Row: Integer;
Book: TBookStr;
Ea:TExcelApplication;
begin
// create and show
try
Ea:=TExcelApplication.Create(nil);
ea.Connect;
Ea.Visible [0] := True;
if FileExists(MyFileName) then
   begin
   Ea.Workbooks.Add (myFileName, 0);
   end
else
   Ea.Workbooks.Add(Null,0);
Except
 showmessage('本机没有安装Excel,请安装后再执行！');
 Exit;
end;// fill is the first row with field titles
RangeE := Ea.ActiveCell;
RangeE.Value:=title;
CDS.EnableControls;
row:=2;
RangeE := Ea.Range ['A' + IntToStr (Row),'A' + IntToStr (Row)];
for I := 0 to CDS.Fields.Count - 1 - cutcount do
begin
RangeE.Value := CDS.Fields[I].DisplayLabel;
RangeE := RangeE.Next;
end;// add field data in following rows
CDS.DisableControls;
try 
Book := CDS.Book;
try
CDS.First;
Row := 3;
while not CDS.EOF do
begin 
RangeE := Ea.Range ['A' + IntToStr (Row),'A' + IntToStr (Row)];
for I :=0 to CDS.Fields.Count - 1 - cutcount do
begin
RangeE.Value := CDS.Fields [I].AsString;
RangeE := RangeE.Next;
end; 
CDS.Next;
Inc (Row); 
end; 
finally 
CDS.Book := Book; 
end;
finally 
CDS.EnableControls;
Ea.Free;
end;
//
CDS:Table
CutCount:Integer

Answer 6

   根据上楼高手的指点!!我也能正确转成EXCEL 形式了,但还有一个问题就是不能写上EXCEL的记录名称,(即输出EXCEL中的记录名只有A,B,C,D.....表示!我想\把它们写上对应的中文名称!!!请再次给我资料或代码!!11,)