用Variant操作Excel进,如何才能读出Excel中的一个给定格子的数据并其放入string变量里?

Question

用Variant操作Excel时,如何才能读出Excel中的一个给定格子的数据并其放入string变量里?
在线等后,解决后马上给分.把100全部给第一个解决问题的侠客!

Answer 1

easyprocedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
  S: string;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );;
  ExcelApp.Visible := True;
  ExcelApp.WorkBooks.Open( 'C:\Demo.xls' );
  ExcelApp.WorkSheets[1].Activate;
  S := ExcelApp.Cells[2,2].Value;
  ShowMessage(S);
end;