急！！！！，怎样从EXCEL表中读数据？

Question

急！！！！，怎样从EXCEL表中读数据？
高手帮忙呀！！！

Answer 1

http://expert.csdn.net/Expert/topic/1855/1855520.xml?temp=8.684939E-02
你去看看关于excel 表和数据库的导入导出应该对你有帮助

Answer 2

procedure TfrmSG.Button1Click(Sender: TObject);  //uses Excel2000 , ComObj
var
  pc_i:integer;
  xlapp,sheet: variant;
  WBK: OleVariant;
begin
  xlapp := createoleobject('excel.application');
  if Trim(Edit1.Text)='' then
  begin
    Application.MessageBox('文件名不能为空','警告',MB_OK);
    Exit;
  end;
  WBK := xlapp.workbooks.Open(Edit1.Text);
  sheet := xlapp.workbooks[1].worksheets['sheet1'];
  sheet.Cells.SpecialCells(XlCellTypeLastCell,EmptyParam).Activate;  showmessage(IntToStr(xlapp.ActiveCell.Row));
  showmessage(IntToStr(xlapp.ActiveCell.Column));
  //excelworksheet2.UsedRange[1].Rows.Count));
  //excelworksheet2.UsedRange[1].Columns.Count));
  pc_i:=1;
  Edit2.Text := sheet.cells[pc_i,1];     //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex;
  WBK.Close(SaveChanges := True);
  xlapp.Quit;
end;

Answer 3

可以使用ADO JET引擎来访问Excel这样就可以像数据库一样访问Excel了sheet就是表