如何找开已有的EXCEL文件?

Question

假设存在 D:\book.xls 一文件
 在代码中创建EXCEL对象
      varexcel := createoleobject('excel.application');
      if not varisempty(varexcel) then
      begin
         //我要打开D:\book.xls下的sheet2工作表
      end;请问我要如何写代码，来实现功能?

Answer 1

excelapplication1.connect;//该控件在server面板上
 excelapplication1.visible[0]:=true;
机器上没有excel,不只好不好用,
不过陈省的《delphi深度探索》是这么写的

Answer 2

我们在对日开发中Delphi控制Excel的经验如下：            Delphi 5 控制Excel            作者：吴晓勇，孙唏瑜
            时间：2001年11月20日(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：
ExcelApp.Visible := True;2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：
ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;  
或 
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
你的问题用5) 就行

Answer 3

看看这个怎么样
procedure TfrmZSPlanGetCount.btnEditClick(Sender: TObject);
var
ExcelApp: Variant;
begin
  //判断是否已经存在计划表，不存在提示需要生成
  if FileExists('D:\book.xls') then
  begin
    ExcelApp:=CreateOleObject('Excel.Application');
    ExcelApp.Visible :=True;
    ExcelApp.WorkBooks.Open('D:\book.xls');
  end
  else
  begin
    Application.Messagebox('对不起，没有相应的文件','确定',MB_OK+MB_ICONQUESTION);
  end;end;