在DELPHI中如何读取Excel 97 或2000工作表.

Question

下面是我的一段实际代码，注意看了：
uses ComObj;procedure TKitlyform.BitBtn6Click(Sender: TObject);
var
 MSExcel: Variant;
 i: Integer;
begin
OpenDialog1.Filter:='*.XLS|*.XLS';
OpenDialog1.DefaultExt:='XLS';
if OpenDialog1.Execute then
 begin
  MSExcel:=CreateOLEObject('Excel.Application');
  MSExcel.WorkBooks.Open(OpenDialog1.FileName);
  MSExcel.Visible:=False;
  //从有数据的行逐行读入数据
  for i:=1 to MSExcel.ActiveSheet.UsedRange.Rows.Count do
   begin
    Edit2.Text:=Edit2.Text+MSExcel.Cells[i,1].Value;
   end;
  MSExcel.ActiveWorkBook.Close;
  MSExcel.Quit;
 end;
end;当然，在实际应用中如果牵扯到数据类型，还要进行相应的异常判断！