\\\\\\问题交换，谁帮我解决了我得问题，我就帮他(她)解决一个相同难度得问题//////

Question

很少摸这控件, 估计这样应该没有问题.
如果是设计期把对象绑定了. 只需要
var
  o:Variant;
begin
...
   OleContainer1.OleObject.XXXX(XXX); //
...
endTOLEContainter的OleObject和OleObjectInterface都可以用来取被包容对象的接口。其中OleObject其实只是将OleObjectInterface包装了一下，使得可以提供IDispatch
方式简单调用.
//--------------------------------------------------
function TOleContainer.GetOleObject: Variant;
begin
  CheckObject;
  Result := Variant(FOleObject as IDispatch);
end;
//------------------------------------------------

Answer 1

请举个例子吧，比如连接Excel对象，查找第一张表中的二行二列的数据

Answer 2

程序中要定义类和对象，并且要使用类和对象！！！ 因为程序的目的就是为了展现面向对象的特点和优点！！！
假定： 对一家公司的员工进行管理：
包括人员名字，出生日期，加入公司的年份，那个部门（用ring0---ring9表示10个部门） ，工资标准等（多多不限）
要求有对（假如有员工改名， 可以实现改名， 尽管使用中不常见， 但主要是为了实现面向对象思想）（更改工资标准）（开除员工和增加员工）（通过工龄即加入公司的时间来对员工进行排序， 同一年的可随便排）（通过部门的对员工排序， 个部门的集中在一起显示，譬如ring0的排了下了跟着就是全是ring1部门的）
请兄弟们快点回帖， 把源代码和程序发给我， 搞定后就给200分！！！
这是我期末考试的题目， 兄弟们要快快快！！
 我的email :  [email protected]

Answer 3

呵.这其实可以单独当一个问题的.
procedure TForm1.Button1Click(Sender: TObject);
var
  obj:Variant;
  sheet:Variant;
begin
  OleContainer1.DoVerb(ovShow );
  obj:=OleContainer1.OleObject;
  sheet:=obj.Worksheets[1] ;
  Sheet.Cells[2,2].Value:='OK';
end;

Answer 4

to HalfDream:你的回答可以解决问题（尽管有速度问题），OK!你的问题呢？

Answer 5

to HalfDream:我现在结题了。
用QQ联系吧：33728007