1，首先写一份需要增加的数据的测试用例，用例中有预期结果的值，预期结果为对应的弹出框或者是文本的内容；

2，直接录制脚本，在脚本后面进行保存操作的文本的获取，如果时弹出框，下面有一个函数比较很快的能获取你所需要的对话框的文本，只需要传入对话框的对象即可；

函数如下：

Function getdialogtext(dialogobject)    Set mydes=description.Create    mydes("micclass").value="static"    getdialogtext=dialogobject.ChildObjects(mydes)(1).GetROProperty("text") End Function这里获取的对话框的文本就相当于我们的实际的测试结果。

至于测试中的预期的结果，我们一般都在对应的excel中录入了。

然后比较对应的预期值和实际值即可；

本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2012/05/31/2528013.html，如需转载请自行联系原作者。