Excel.Application如何存盘?

我用  
  myExcel:=CreateOleObject('Excel.Application');  
  建立了一个EXCEL.APPLICATION对象,操作后却不知道怎么存为xls文件.  
  请问存为文件的方法是哪个?  
  另外Delphi的HELP中好像没有这方面的内容,哪里有Delphi开发OA软件的站点? 问题点数：20、回复次数：2Top

1 楼ePing（是谁动了我的CSDN的ID？）回复于 2001-01-09 10:56:00 得分 0

Following   is   the   Sample:  
      if   SaveDialog1.execute   then  
          MyExcel.FileSaveAs(SaveDialog1.FileName);  
   
  Good   Luck  
      Top

2 楼Hank（星星农场）回复于 2001-01-09 12:26:00 得分 20

procedure   TForm3.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].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;  
  Top

相关问题

• excel
• 文件
• application
• msexcel
• savedialog
• xls
• table

• 帖主：yluanin
• Hank

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载