关注于测试自动化和测试管理，我是一个永远的测试新手。

TestComplete从Excel取值实例

上一篇 / 下一篇 2008-05-05 16:37:20 / 个人分类：TestComplete

[C"WaD5^Z0TestComplete从Excel取值实例51Testing软件测试网&b E\*TU+S

qiguojie的51testing原创文章，转载请注明出处，非常感谢！51Testing软件测试网7D4N"W_9?

8qL;@FZ~i;L2H0因为曾经使用过Winrunner 7.6，对其自动的数据驱动测试功能印象非常深刻（独立的一个功能模块，可以方便的从Excel中读取数据进行参数化的输入），非常的方便。刚开始接触TestComplete时就记得2点：一个是WR支持鼠标操作录制但很不好用，TestComplete对其支持就非常好；另外一个就是WR的数据驱动功能比TC的强太多。51Testing软件测试网pQ%j(qv

cy;ug"tK-s-sq0但是数据驱动测试是自动化测试的一个应用非常多的测试类型，因此我查询了TC的帮助文件，写了一个实例出来，描述怎么才能从Excel文件中获取对应的数据。

TestComplete的简单使用步骤：
i(S\\G6VJ,u01、打开TestComplete51Testing软件测试网C`kq`*L
2、选择菜单 File - New - New Project创建一个新项目
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
,jQ4TO2Zs0b*ZQ04、Select Project Items中默认，然后Finish即可
H:Gp,l9K^H.Yf05、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件51Testing软件测试网][K)[VY }4g
6、复制下面的代码到单元文件51Testing软件测试网8Q{9I"\8z+{
7、保存，然后F9执行51Testing软件测试网W5K"P9a#?C$ow

"[:|n7y-K!U\0//========================
}^mCTyu0//Author:qiguojie
//Date:2008-05-05
//scrīpt Type: Delphiscrīpt51Testing软件测试网"iQLl"U"v
//========================

//定义全局变量
l7a+gs/[&C"[0var51Testing软件测试网UV+I+s3Ac j
MSExcel : OleVariant;
h J~ON0 ExcelFile;51Testing软件测试网3E}/kct

//声明读取值的函数
function ReadExcel(i,j):string;forward;

-S9v9Z7h4OV P0Procedure MyTest;
E|(Pi\0var
u,E*^z9ii#J0    i,j : Integer;
h?;FU yaTK?0    FileName : String;
SZe5}.o\%P6|.dg0begin51Testing软件测试网 P`'g8rSS
    FileName := 'E:\1.xls';
&K5{a~l(Q0    j := 1;

+p2D,B7U6Jt$w0//检查Excel是否启动
YH%l0Wu*d[j0    ExcelFile := Sys.WaitProcess('EXCEL');
    if ExcelFile.Exists then
        ExcelFile.Terminate();51Testing软件测试网*o%QBo5c!Z7W
    try
        MsExcel := Sys.OleObject('Excel.Application');
eR/B1f?y hw0    except51Testing软件测试网a"j"P#DQ0bR
        Log.Warning('Unable to initialize MS Excel.', '', pmHigher);51Testing软件测试网[}} H z&^.Gl
        Exit;51Testing软件测试网%r|!J+Q I&J9f
    end;

//打开对应Excel文件
6dJ$]Nw0 MsExcel.Workbooks.Open(FileName);51Testing软件测试网R0V@!F1u8yM

//循环取出10个值51Testing软件测试网a`#^ u8b9?
    for i := 1 to 10 do
&]cNoA_F"Lg0    begin
SzV4Y#f f0        log.message(ReadExcel(i,j));51Testing软件测试网\0\zF m.j@
    end;
end;51Testing软件测试网X nS&?A^-Pu

//读取值的函数实现
function ReadExcel(i,j):string;
lMw}"by,e"d&_ ww0begin
Result := MsExcel.Cells(i,j).Value;
end;51Testing软件测试网\H8f;{M

W ~6DBM^*PQX051Testing软件测试网1J_ TE5A0w
写完这个实例，我相信大家都可以知道怎么从Excel中读取某一个cell(块)的值了；51Testing软件测试网*JB)O,Yz4j
可以+MSN交流:qiguojie at hotmail dot com