在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)

解决方案 »

  1.   

    我刚写完这种程序用ADO连
    EXCEL导到SQL server
    var
    listitem:Tlistitem;
    i:integer;
    file_name,file_name1:string;
    leng,j:integer;
    str:string;
    f:twrptprogress;
    linkdata:string;
    aa:TStrings;
    bb:string;
    begin
       linkdata:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+RzButtonEdit1.text+';';       //  d:\jmyq1.xls
       linkdata:=linkdata+'Mode=Share Deny None;Extended Properties=Excel 8.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
       linkdata:=linkdata+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;';
       linkdata:=linkdata+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;';
       linkdata:=linkdata+'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don‘t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';dm.ADOConn.connectionstring:=linkdata;
    dm.ADOConn.LoginPrompt:=false;
    dm.ADOConn.Connected:=true;
    aa:= TStringList.Create;
    dm.ADOConn.GetTableNames(aa);
    bb:=aa.text;
    dm.ADOQuery1.SQL.Clear;
    dm.ADOQuery1.SQL.Add('select * from ['+strim(bb)+']');
    dm.ADOQuery1.open;
      

  2.   

    写错了
    倒数第二句应是
    dm.ADOQuery1.SQL.Add('select * from ['+trim(bb)+']');
      

  3.   

    连接直接用ExcelApplication.Connect;
             ExcelApplication.Visible[0]:=true;
    就行了吧!!!
    有问题请发信息到我的E-mail:[email protected]
      

  4.   

    好象是用ADO连接,但我没看懂,请帮忙注释一下好吗