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();两句注释掉就正常了。
不知道是怎么回事?
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();两句注释掉就正常了。
不知道是怎么回事?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货