delphi下打开一个excel，如何关闭(50)

程序如下，我经常需要在delphi下操作excel，有时要show这个创建的excel，show之后需要用户选择保存与否。我的意思是有时候我只是借用excel这个工具导入导出数据，我并不想把它show出来，所以我就不用 ExcelApplication.visible:=True;这一行语句。结果虽然不show，但是在我最后下班关机的时候，会提示是否保存这个excel。显然这个ole对象是一直创建了的，只是不show。怎么才可以把创建的excel对象在使用完毕之后用程序关掉呢？不知道说的清楚吗，小弟先谢过了！这段程序，只用看一个头尾，中间就是一个导入的动作。var i , j , k : Integer; ColumnIndex : Integer;begin Screen.Cursor:=crHourGlass; try try ExcelApplication:=createoleobject('excel.application'); ExcelApplication.workbooks.add(); ExcelWorksheet:=ExcelApplication.workbooks[1].worksheets[1]; except ShowMessage('您的计算机没有安装Microsoft Excel.无法将数据导入Excel.'); Exit; end; ColumnIndex:=2; ExcelWorksheet.cells[1,1]:='Id'; //读字段名 for k:=0 to cxGrid1DBTableView1.ColumnCount-1 do begin ExcelWorksheet.cells[1,ColumnIndex]:=cxGrid1DBTableView1.Columns[k].Caption; Inc(ColumnIndex); end; //读表格内容 tbl1.First; for k:=0 to 3 do tbl1.Next; i:=2; for j:=2 to tbl1.RecordCount+1 do begin if (abs(tbl1.Fields.FieldByName('Kcl').AsFloat) > 0.0001) or (abs(tbl1.Fields.FieldByName('Kcjz').AsFloat) > 0.0001) then begin ExcelWorksheet.cells[i,1]:=i-1; ExcelWorksheet.cells[i,2]:=tbl1.Fields.FieldByName('Bh').AsString; ExcelWorksheet.cells[i,3]:=tbl1.Fields.FieldByName('Mc').AsString; ExcelWorksheet.cells[i,4]:=tbl1.Fields.FieldByName('Gg').AsString; ExcelWorksheet.cells[i,5]:=tbl1.Fields.FieldByName('Dw').AsString; ExcelWorksheet.cells[i,6]:=''''+tbl1.Fields.FieldByName('Kcl').AsString; if abs(tbl1.Fields.FieldByName('Kcjz').AsFloat) < 0.0001 then ExcelWorksheet.cells[i,7]:=''''+'0' else begin if Length(tbl1.Fields.FieldByName('Kcjz').AsString)>4 then ExcelWorksheet.cells[i,7]:=''''+formatfloat('0.00',tbl1.Fields.FieldByName('Kcjz').AsFloat) else ExcelWorksheet.cells[i,7]:=''''+tbl1.Fields.FieldByName('Kcjz').AsString; end; Inc(i); end; tbl1.Next; end; ExcelApplication.visible:=True; finally Screen.Cursor := crDefault; end; end;

ExcelApplication.Quit; ExcelApplication := Unassigned;

ExcelApplication.ActiveWorkBook.Save ; ExcelApplication.WorkBooks.Close ; ExcelApplication.Quit ; ExcelApplication := Unassigned;

楼上正解

多人接受答案了。