delphi 如何 连接一个已经开启的excel, 以便读写操作?
网上搜到的都是类似以下的代码, 会重新打开excel, 可是我要操作的excel已经打开了, 不要重复打开
try exclplctn1.Connect; except on Exception do raise exception.Create('无法创建Xls文件,请确认是否安装EXCEL'); end; exclplctn1.Visible[1]:= true; exclwrkbk1.ConnectTo(exclplctn1.ActiveWorkbook);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];