TExcelWorkbook问题(急），帮忙看看，谢谢

Question

用TExcelWorkbook：
  WkBk：TExcelWorkbook；
  WS: TExcelWorksheet;
  lcid := GetUserDefaultLCID;
  ExcelApplication1.Visible[lcid]:=True;
  { Create a new workbook }
  { The TOleEnum cast in the next line just prevents compiler range warnings }
  WkBk.ConnectTo(ExcelApplication1.Workbooks.Add(TOleEnum(xlWBATWorksheet), lcid));
  WS.ConnectTo(WkBk.Worksheets[1] as _Worksheet);
  WS.Name := 'Data';
这是每次运行时产生一个新的excel,我想调用已经存在的excel,该怎么写？

Answer 1

use
comobj;
var
myexcel,myworkbook:variant;
beginmyexcel:=createoleobject('excel.application');
myexcel.visible:=true;
myworkbook:=myexcel.workbooks.open(文件路径+文件名）;
end