delphi操作excel，总是需要先打开excel，于是就会有excel在桌面快速打开再关闭,很不舒服,有什么办法吗?

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

qingningleyun
2015-03-27 · TA获得超过5852个赞

知道大有可为答主

回答量：2991

采纳率：30%

帮助的人：3030万

我也去答题访问个人页

关注

展开全部

use
    ...,Excel2000, OleServer, ExcelXP;
type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    ...
ExcelApplication1 := TExcelApplication.Create(Application);
ExcelWorkbook1    := TExcelWorkbook.Create(Application);
ExcelWorksheet1   := TExcelWorksheet.Create(Application);
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open(CurInfo.CurFile,null,null,null,null,null,null,null,null,null,null,null,null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
    ...
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
ExcelApplication1.Workbooks.Close(0);
ExcelApplication1.Quit;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
ExcelApplication1.Free;