TestComplete从Excel取值实例

TestComplete从Excel取值实例51Testing软件测试网O/u~fz%~ n!m`

AMOg9?3@+v"w"\ ZZ0qiguojie的51testing原创文章，转载请注明出处，非常感谢！

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

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

:Y-Bd)x
Xt[0TestComplete的简单使用步骤：
i3R,f2^qn7O+rs01、打开TestComplete
&EO|8\L6]&Q02、选择菜单 File - New - New Project创建一个新项目51Testing软件测试网T'eLz.J~i"W1j
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
-Nu pE^6Z#]lTk04、Select Project Items中默认，然后Finish即可
u9Zs#J"v8IU? RGI05、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件51Testing软件测试网D#e`&H/@(M0^
6、复制下面的代码到单元文件51Testing软件测试网)]j$x,T
b;Ha f
7、保存，然后F9执行51Testing软件测试网K$z.t$[e S0i

//========================
5ki.m!t_P.I{ K0//Author:qiguojie51Testing软件测试网9SEx(Dg.}z!Q6i
//Date:2008-05-0551Testing软件测试网O$?i1u"G@
X;q
//scrīpt Type: Delphiscrīpt51Testing软件测试网0Fg\H}Qf*RA
//========================51Testing软件测试网YIWF3LZ~4N

//定义全局变量
!RU4M!xy3{0var
L\2vR)s3r8Z"OE0     MSExcel : OleVariant;51Testing软件测试网
gBK _u
     ExcelFile;

//声明读取值的函数
L ^av}x0function ReadExcel(i,j):string;forward;

e\:qv-[/U0Procedure MyTest;
/dhT2i_M'vu0var51Testing软件测试网 r&bnd)nQxn M
    i,j : Integer;
+Z/bPt [@{B'd4a0    FileName : String;
V,x2j+v#@}&]0begin51Testing软件测试网;o"Se+g7o,b
    FileName := 'E:\1.xls';
`1n|w2o zyo[.T7t0    j := 1;51Testing软件测试网-C ~:h/d.x;}0A3k

s LaxZVU0//检查Excel是否启动51Testing软件测试网 lwOE*f"RZ"V
    ExcelFile := Sys.WaitProcess('EXCEL');51Testing软件测试网X&n/fIa$k0{{
    if ExcelFile.Exists then
;Jrk^7z:c"j9L0        ExcelFile.Terminate();51Testing软件测试网 `i^'AiLQ*x2V6QE
    try51Testing软件测试网RJ
xG!j6w E9?0R f
        MsExcel := Sys.OleObject('Excel.Application');

S$y7wrf.gl%l,e0    except
8lGY7gH-l"][a0        Log.Warning('Unable to initialize MS Excel.', '', pmHigher);51Testing软件测试网4@dHyYIx?
        Exit;51Testing软件测试网1a0cug*c+G,s5`
    end;51Testing软件测试网9[k+|/\1xU8q|

xP-D*~c1h!x0G.c0//打开对应Excel文件51Testing软件测试网%Am#Y b_%SAm
    MsExcel.Workbooks.Open(FileName);51Testing软件测试网+P&{%z:}5J

//循环取出10个值51Testing软件测试网E8t&yj*U
    for i := 1 to 10 do
Nv*K;f3j$quK4{%Z!w0    begin51Testing软件测试网sZg`b5EYPZl
        log.message(ReadExcel(i,j));
"}+C)cg"HQ,X,p0~0    end;51Testing软件测试网"iu|h1gw+a
end;

uM#G6hTw0//读取值的函数实现
9q9v;[:sr0function ReadExcel(i,j):string;
$Ji#Q*W$\;A/T3Q0begin   51Testing软件测试网xsv^b,`3b
    Result := MsExcel.Cells(i,j).Value;
o&Ht/t0z7h,}%@0end;51Testing软件测试网rYj8RHq4^"U

51Testing软件测试网?l%zug$@qG1l
写完这个实例，我相信大家都可以知道怎么从Excel中读取某一个cell(块)的值了；51Testing软件测试网-o@&WQ/L'ekZ;i
可以+MSN交流:qiguojie at hotmail dot com51Testing软件测试网4h:^$XYL