能成功导入,可成功率很低,时好时坏,不知为什么?
经常是什么RPC错误,关闭都关不掉。

解决方案 »

  1.   

    没遇到过,什么系统?在WIN98易出问题
      

  2.   

    try
      excelsysinfo.Connect;
      excelsysinfo.Visible[0]:=true;
      //excelsysinfo.Workbooks.Application;//('book1',0);
      excelsysinfo.Workbooks.Add(emptyparam,0);
      sheet:=excelsysinfo.Workbooks[1].Worksheets[1];
      sheet.name:='系统日志';
      cdsysinfo.First;
      sheet.cells[1,1]:='帐号';
      sheet.cells[1,2]:='登录时间';
      sheet.cells[1,3]:='退出时间';
      sheet.cells[1,4]:='计算机名';
      sheet.cells[1,5]:='使用模块';
      for i:=1 to cdsysinfo.RecordCount do
        begin
          sheet.cells[i+1,1]:=cdsysinfo.FieldByName('userid').AsString;
          sheet.cells[i+1,2]:=datetimetostr(cdsysinfo.FieldByName('starttime').AsDateTime);
          sheet.cells[i+1,3]:=datetimetostr(cdsysinfo.FieldByName('endtime').AsDateTime);
          sheet.cells[i+1,4]:=cdsysinfo.FieldByName('computer').AsString;
          sheet.cells[i+1,5]:=cdsysinfo.FieldByName('usemodule').AsString;
          cdsysinfo.Next;
        end;
      except
        showmessage('未安装EXCEL或EXCEL有错误,不能打开!');
      end;
      

  3.   

    baolong530(baolong530):去问你妈,怎么只管生,不管教?