请问一下谁能送我一个DELPHI的EXCEL读入控件（带多页），先谢了

Question

怎么遇到的问题同我的一样啊
我需要快速查找.xls文件中的某一Cell的内容

Answer 1

uses excel97,comobj;public
    XlsApp,XlsSheet,XlsWBk : Variant;procedure TForm1.Button2Click(Sender: TObject);
var
  I,J : integer;
  TxtFile : TextFile;
  TmpString : String;
begin
  try
    if VarIsEmpty(XlsApp) then
      XlsApp := CreateOleObject('Excel.Application');
    XlsSheet := XlsApp.workbooks.open('c:\my documents\book3.xls');    AssignFile(TxtFile,'C:\My Documents\Test.txt');
    Rewrite(TxtFile);
    try
      for I := 3 to 21 do
      begin
        TmpString := '';
        for J := 1 to 5 do
        begin
          TmpString := TmpString + XlsSheet.ActiveSheet.Cells[I,J].Text + '|';
        end;
        Writeln(TxtFile,Tmpstring);
      end;
    finally
      CloseFile(TxtFile);
    end;
    XlsApp.Visible := true;
  except
    XlsSheet.close;
    XlsApp.Application.quit;
    XlsApp := Unassigned;
    XlsSheet := Unassigned;
  end;
end;

Answer 2

这个办法我也试过，就是速度太慢（创建Ole对象），不得不放弃；华表又不能直接打开*.XLS文件(国产软件嘛，我也不能要求太高了，虽然它卖得贵)；现在我得试试F1了