Delphi5 轉excel問題

procedure TtestForm.BitBtnClick(Sender: TObject);
var ExcelApp, Sheet, PageSetup :Variant;
AShape, shp :Variant;
begin
try
//創建OLE對象Excel Application與 WorkBook
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.DisplayAlerts := False;
ExcelApp.Workbooks.Add(-4167);
//ExcelApp.Visible := true; // 顯示Excel程式 (可以看見程式寫入Excel的情形)
except
on xErr: Exception do
begin
Screen.Cursor := crDefault;
MessageDlg('您的電腦裡未安裝Microsoft Excel。'+#13#10+xErr.Message, mtInformation, [mbOk], 0);
InqLabel.Caption := FormatDateTime('hh:nn ',now)+ '您的電腦裡未安裝Microsoft Excel。';
ExcelApp.Quit;
ExcelApp:= Unassigned; // 釋放VARIANT變量
Exit;
end;
end;

Sheet := ExcelApp.Workbooks[1].WorkSheets[1];
ExcelApp.WorkSheets[1].Activate;
ExcelApp.Cells.Font.Name := '新細明體'; // 字型
ExcelApp.Cells.NumberFormatLocal :='G/通用格式'; // 通用格式
Sheet.Name:= '測試頁籤';
Sheet.Cells[1,1]:= (edit1 , edit2 , edit3) and label1 + label2;
end;

2009-10-06 08:21:34 補充：
其中的　Sheet.Cells[1,1]:= (edit1 , edit2 , edit3) and label1 + label2;　
因為不曉得您所說的(edit1 , edit2 , edit3) and label1 + label2是怎樣的作法(加減乘除之類的)
所以小的就原封不動的將之帶出，大大您在自行看是怎樣處理囉
上面的程式片段測試過是沒問題的

2009-10-07 08:30:26 補充：
您的意思是指當有新資料時, 開啟EXCEL檔並將新資料寫入嗎？

網上看了這家，因為我公司的硬碟故障，微軟的張經理都找過他們，把他們送去內湖救不出來的，都給救出來
http://www.datamaster.com.tw/
http://millerforyew1.pixnet.net/blog/

----在Delphi 5中簡單地封裝了一組microsoft Office自動化對象 (Automation servers)。 它使得我们很容易地把Office中的应用程序 ( word , Excel, Powerpoint , Outlook and Access等)当作一个com应用它使得我們很容易地把Office中的應用程序 ( word , Excel, Powerpoint , Outlook and Access等)當作一個com應用
服务器进行控制。 服務器進行控制。
在Delphi 5中已经带了Word与PowerPoint的例子，因为Excel的调用与这两个应用服务器的调用略有不同，在Delphi 5中已經帶了Word與PowerPoint的例子，因為Excel的調用與這兩個應用服務器的調用略有不同，
所以本人根据这两个例子写了个Excel 97的简单例子以供参考。所以本人根據這兩個例子寫了個Excel 97的簡單例子以供參考。

SEE
http://gugu99.itpub.net/post/34143/466968