procedure TfrmDateRange.btnOkClick(Sender: TObject);
var
  ExcelApp, Book , Sheet: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := false;
  ExcelApp.DisplayAlerts := False;
  try
    ExcelApp.workbooks.open(ExtractFilePath(Application.ExeName) + 'Analyse.xls');
    Book := ExcelApp.workbooks[1];
    Sheet := ExcelApp.worksheets[1];
    Sheet.Cells[1,1].Value := 'new value';
    Book.save();
  finally
    ExcelApp.quit();
  end;
end;——————————————————————————————————将Book.save();和ExcelApp.quit();两句注释掉就正常了。
不知道是怎么回事?