怎么样在程序里控制将数据导出到dbf和excel中去？

Question

导出excel:
unit ExcelTest;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls,db,DBTables, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
end;var
Form1: TForm1;implementationuses Comobj;{$R *.DFM}{ TForm1 }procedure TForm1.WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
var
EclApp,WorkBook : Variant;
xlsFileName : String ;
I : Integer ;
column : Integer ;
Row : Integer ;
Fdate:TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrDate:String ;
StrDate1:String ;
Begin
Fdate:=now ;
DecodeDate(Fdate, Year, Month, Day);
DecodeTime(Fdate, Hour, Min, Sec, MSec);
StrDate:=formatdatetime('yyyy-mm-dd-hh-mm-ss',Fdate) ;
StrDate1:=formatdatetime('yyyy/mm/dd hh:mm:ss',Fdate) ;
If AStrVar='Excel文件测试' Then
Begin
xlsfilename :='Excel文件测试' ;
End ;Try
Begin
EclApp := CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
End
Except
ShowMessage('您的计算机上没有 Microsoft Excel!');
Exit;
end;
try
workBook:=EclApp.workBooks.Add ;
row:=2;
EclApp.Workbooks.Item[1].Activate;
eclApp.Cells.font.colorindex:=5 ;
EclApp.Activesheet.Cells(1,1):=AStrVar ;
For I := 1 To AQueryName.FieldCount Do
EclApp.Activesheet.Cells(2,I):=AQueryName.Fields[I-1].FieldName ;
If Not AQueryName.Active Then AQueryName.Active := True ;
AQueryName.First ;
While Not(AQueryName.Eof) do
begin
column:=1;
for i:=1 to AQueryName.FieldCount do
begin
eclApp.Cells.Item[row+1,column]:=AQueryName.fields[i-1].AsString;
column:=column+1;
end;
AQueryName.Next;
row:=row+1;
End ;
WorkBook.saveas(xlsFileName);
WorkBook.close;
WorkBook:=eclApp.workBooks.Open(xlsFileName);
if MessageDlg('xlsFileName'+'对该文件是否保存?',
mtConfirmation,[mbYes, mbNo], 0) = mrYes then
WorkBook.save
Else
workBook.Saved := True;
WorkBook.Close;
eclApp.Quit;
eclApp:=Unassigned;
except
ShowMessage('Excel 文件保存失败');
WorkBook.close;
eclApp.Quit; {释放VARIANT变量}
eclApp:=Unassigned;
end;
ShowMessage('EXCEL 文件保存完毕') ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
WriteDatasetToExcel(query1,'Excel文件测试');
end;end.

Answer 1

test
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 2

導出excel 好好看一看。你的这个问题有很多人问，你可以去搜索一下。
----------------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,ComObj, StdCtrls;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure WriteToExcel(adataset: TDataSet; selrows: TBookList);    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
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
    showmessage('EXCEL不存在！');
   end;
   i:=0;
  table1.first;
  while not table1.eof do
   begin
    inc(i);
    for j:=0 to table1.fieldcount-1 do
      worksheet.cells[i,j+1]:=table1.fields[j].asstring;
    table1.next; 
   end;
   end;
procedure TForm1.WriteToExcel(adataset: TDataSet; selrows: TBookList);
var oexcel: OleVariant;
    i,j: integer;
begin
     try
        oexcel:=GetActiveOleObject('Excel.Application');
     except
        try
           oexcel:=CreateOleObject('Excel.Application');
        except
           MessageDlg('无法启动EXCEL程序。'+#13+'请确定该程序已正确安装！',mtInformation,[mbOK],0);
           exit;           
        end;
     end;
     oexcel.WorkBooks.Add;
     with adataset do begin
          for i:=1 to FieldCount do
              oexcel.WorkSheets['Sheet1'].Cells[1,i].Value:=Fields[i-1].FieldName;
          if selrows<>nil then begin
             for j:=2 to selrows.Count+1 do begin
                 GotoBook(pointer(selrows.Items[j-2]));
                 for i:=1 to FieldCount do begin
                     Application.ProcessMessages;
                     oexcel.WorkSheets['Sheet1'].Cells[j,i].Value:=Fields[i-1].AsString;
                 end;
             end;
          end else begin
              j:=2;
              First;
              while not eof do begin
                  for i:=1 to FieldCount do begin
                      Application.ProcessMessages;
                      oexcel.WorkSheets['Sheet1'].Cells[j,i].Value:=Fields[i-1].AsString;
                  end;
                  j:=j+1;
                  Next;
              end;
          end;
     end;
     oexcel.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
     WriteToExcel(table1,dbgrid1.SelectedRows);
end;procedure TForm1.Button3Click(Sender: TObject);
var c,r,i,j : integer ;
    app : Olevariant ;
    TempFileName,ResultFileName : String ;
begin
  try
     app := CreateOLEObject('Excel.application') ;
  except
     Messagedlg('Excel没有正确安装！',mterror,[mbok],0);
     exit ;
  end ;
  TempFileName := 'test' ;
  app.Workbooks.add ;
  app.Visible := false ;  dbgrid1.DataSource.DataSet.First;
//  DBGResult.DataSource.DataSet.First ;
  c:=dbgrid1.DataSource.DataSet.FieldCount ;
  r:=dbgrid1.DataSource.DataSet.RecordCount ;  for i:=0 to c-1 do
    app.cells(1,1+i):= dbgrid1.DataSource.DataSet.Fields[i].DisplayLabel ;
  for j:=1 to r do
  begin
    for i:=0 to c-1 do
      app.cells(j+1,1+i):= dbgrid1.DataSource.DataSet.Fields[i].AsString ;    dbgrid1.DataSource.DataSet.Next ;
  end ;  ResultFileName := TempFileName ;
  if ResultFileName='' then ResultFileName:='自动报表' ;
  if FileExists(ExtractFilePath(Application.EXEName)+ResultFileName+'.xls') then
    DeleteFile(ExtractFilePath(Application.EXEName)+ResultFileName+'.xls') ;  app.Activeworkbook.saveas(ExtractFilePath(Application.EXEName)+ResultFileName+'.xls') ;
  app.Activeworkbook.close(false) ;
  app.quit ;
  app:=unassigned ;
end;

Answer 3

用上面两位兄台的方法可以导到Excel里去了，但能不能对Excel内的一些格式进行设定呢！比如哪几行合并，哪几行居中对齐等！有谁往DBF中导过？