网上搜到的都是类似以下的代码, 会重新打开excel, 可是我要操作的excel已经打开了, 不要重复打开  try
      exclplctn1.Connect;
  except
      on Exception do raise exception.Create('无法创建Xls文件,请确认是否安装EXCEL');
  end;
  exclplctn1.Visible[1]:= true;
   
  exclwrkbk1.ConnectTo(exclplctn1.ActiveWorkbook);
这个代码试过, 每次都要新建一个excel文档var 
  sheet,XLApp,workbook : variant;
  iRow,MaxRow:integer;
XLApp:=createOleObject('Excel.Application');
    XLApp.displayAlerts:=false;
    XLApp.ScreenUpdating:=false;
    XLApp.WorkBooks.Add('D:\tt.xls');
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];
    sheet:=XLApp.WorkBooks[1].worksheets[1];
这个代码只能使用保存了的excel文件, 就是说没法实时的操作