很急，送100分！

Question

在2000系统中连接excel用下列代码，但在98系统上连不上，如用98系统该如何连接（从excel往数据库中导数据）  
/////连接excel///////////////////////////////////
  ea.Connect;
  eb.ConnectTo(ea.Workbooks.Open(edit1.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) );
  es.ConnectTo(eb.ActiveSheet as _WorkSheet)

Answer 1

procedure TForm5.BitBtn2Click(Sender: TObject);
var
 i,row : integer;
begin
  Try
 ExcelApplication1.Connect;
Except
    MessageDlg('Excel may not be installed',
    mtError, [mbOk], 0);
  Abort;
 End;
  ExcelApplication1.Workbooks.Open('C:\Program Files\Microsoft Office\Templates\cwimport.xlt',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
 ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='12345678';
//ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);