M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-08 #4 var ActiveCell:OleVariant; begin ActiveCell:=OleContainer1.OleObject.Application.ActiveCell; ShowMessage(ActiveCell); end;
var ActiveCell:OleVariant; begin ActiveCell:=OleContainer1.OleObject.Application.ActiveCell; ShowMessage(ActiveCell); end;
W wuyi Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-09 #6 menxin: 再请教一个问题，我把你给的代码放在一个speedbutton的onclick事件里，当 我在当前单元输入内容时，在没有跳出该单元时，去点击按钮执行其他操作时，就 会出现“遇到一个Microsoft软件安装错误”，虽然可用try except屏蔽出错提示， 但不能取出当输入的内容了。不知有没有办法解决？
menxin: 再请教一个问题，我把你给的代码放在一个speedbutton的onclick事件里，当 我在当前单元输入内容时，在没有跳出该单元时，去点击按钮执行其他操作时，就 会出现“遇到一个Microsoft软件安装错误”，虽然可用try except屏蔽出错提示， 但不能取出当输入的内容了。不知有没有办法解决？
