能解决,马上可得300分,用Variant读出Excel中的一个给定格子的数据并其放入string变量里?

Question

try
    FExcel := CreateOLEObject( 'Excel.Application' );
    FWorkBook := FExcel.WorkBooks.Add;
    FWorkSheet := FWorkBook.WorkSheets.Add;
    FExcelCreated := True;
  except
    FExcelCreated := False;
  end;
sString:= FWorkSheet.Cells[ ARow, ACol ];

Answer 1

procedure 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;