打开可选择的EXCEL的文件，如何办？

Question

WinExec('C:\Program Files\Microsoft Office\Office\Excel.exe G:\Book1.xls',SW_NORMAL);

Answer 1

if opendialog2.Execute then  //readxls
begin
    try
       xlapplication:=createoleobject('Excel.application');
       xlapplication.visible:=false;
    except
       application.messagebox('您的系统没有安装Excel,请安装后再使用本功能！','读取文件失败',mb_iconerror+mb_ok);
       xlapplication.free;
       abort;
    end;
xlapplication.workbooks.open.endialog2.FileName);
application.MessageBox('打开文件失败！','',mb_iconerror+mb_ok);
sheet:=xlapplication.workbooks[1].worksheets[1];