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

TestComplete从Excel取值实例

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

qiguojie的51testing原创文章，转载请注明出处，非常感谢！51Testing软件测试网A/Aj&x7P!c

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

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

TestComplete的简单使用步骤：51Testing软件测试网)i6nB'xcmtw
1、打开TestComplete
Hq j+GU"y^02、选择菜单 File - New - New Project创建一个新项目51Testing软件测试网/j/l_F\
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK51Testing软件测试网p!UaG}7{
4、Select Project Items中默认，然后Finish即可
Y K!q4k|K `05、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件
R Iw;Tu@cK-RV06、复制下面的代码到单元文件
7、保存，然后F9执行51Testing软件测试网%u#wh8p{5P@s

//========================
V2n6x WFlUY0//Author:qiguojie
KRa,Uf(Uc8GU;c.n0//Date:2008-05-05
//scrīpt Type: Delphiscrīpt
#w u{J)G8G#F0//========================

5OmQCu0//定义全局变量
%@eyC}&^ E0var51Testing软件测试网/sYv;wp h
MSExcel : OleVariant;51Testing软件测试网d5CHu9a5b
ExcelFile;

;B(@F)Q8H0C1j\7j;Yi&Q0//声明读取值的函数
u]U6]P me0function ReadExcel(i,j):string;forward;

,I,\+zn#Nt BG/}"lh u0Procedure MyTest;51Testing软件测试网Pi9e3zj;C n
var
    i,j : Integer;
*Vxs[XEK.FL0    FileName : String;
m0~8io,dB2f0begin
(Rq&`.h"C+G5a5V7]0    FileName := 'E:\1.xls';51Testing软件测试网Z/h9s e0["}
    j := 1;51Testing软件测试网?mU^7YlNw

'P}aC9ue!R{-H3M!Fa0//检查Excel是否启动
,V(mG(N+e su7v0    ExcelFile := Sys.WaitProcess('EXCEL');
%P'] c K0~TI3K(b"X0    if ExcelFile.Exists then
        ExcelFile.Terminate();
I(AshFhP9ug0    try51Testing软件测试网4t/?QMN#se
        MsExcel := Sys.OleObject('Excel.Application');51Testing软件测试网6hRc-P]
    except51Testing软件测试网?ja1J0_dK
        Log.Warning('Unable to initialize MS Excel.', '', pmHigher);51Testing软件测试网(d4IC},PUu
        Exit;
1S'm@6?+kl%W*f0    end;

//打开对应Excel文件
l$\[:nNW0j0 MsExcel.Workbooks.Open(FileName);51Testing软件测试网P5`+h|9K%I

E!Q"s:E;cH2G0//循环取出10个值
    for i := 1 to 10 do
N'BsdZ1{$`o"BlM0    begin
6dbK,nk0        log.message(ReadExcel(i,j));
    end;
end;

//读取值的函数实现51Testing软件测试网w?CH&OtP
function ReadExcel(i,j):string;
{:k:_ ^.D7n:v0begin 51Testing软件测试网9oo3hKSMDs
Result := MsExcel.Cells(i,j).Value;
U(X!Q M$w0end;

'kn9E7i Ts/V051Testing软件测试网/l?-w+RDS x
写完这个实例，我相信大家都可以知道怎么从Excel中读取某一个cell(块)的值了；51Testing软件测试网d)S5S0f8q
可以+MSN交流:qiguojie at hotmail dot com51Testing软件测试网$F;vVy@$q_