在 excel 下建立檔案並存檔的方法!!

[tim]

一般操作流程, 記得要使用 ComObj!!

代碼: 選擇全部

     
    procedure Tform1.Button1Click(Sender: TObject); 
    var ex,wb,sh:variant; 
    begin 
      ex:=CreateOleObject('Excel.Application'); 
      try 
        wb:=ex.WorkBooks.Add; 
        sh:=wb.WorkSheets.Item[1]; 
        sh.Cells[1,1].value:='test'; 
        sh.SaveAs('D:TEST.XLS'); 
      finally 
        ex.Quit; 
      end; 
    end;