✔ 最佳答案
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檔並將新資料寫入嗎?