那一句只是连接到EXCEL的语句

真正导出的还有很多

而且你写的参数也不正确　ＤＥＬＰＨＩ中一般不会出现（（））这样的语句．



我也给你一段

定义（ＶＡＲ）
var
  ExcelObj, Excel, WorkBook,Sheet: OleVariant;
  OldCursor:TCursor;

代码如下
 OldCursor:=Screen.Cursor;
  Screen.Cursor:=crHourGlass;

  try
    ExcelObj := CreateOleObject('Excel.Sheet');
    Excel := ExcelObj.Application;
    Excel.Visible := true;//excel是否可见
    //if sFileName='' then
      WorkBook := Excel.Workbooks.Add;
    //else
    //  WorkBook := Excel.Workbooks.open(ePath.Text);
  except
    MessageBox(GetActiveWindow,'Mircorsoft Excel! '+chr(13)+chr(10)+
      'Failed to  transfer Mircorsoft Excel!'+chr(13)+chr(10)+
     ' Make sure you have installed Mircorsoft Excel. ','Notice',MB_OK+MB_ICONINFORMATION);
    Screen.Cursor:=OldCursor;
    Exit;
  end;