（1）在Excel編寫測試關鍵字。
在Excel文件中編寫測試關鍵字，包括測試對象、測試操作、輸入的參數等，如圖所示：
（2）編寫測試腳本，讀入Execl中的測試關鍵字。
// 全局的變量數組，用于存儲從Excel讀入的測試關鍵字
Var KeyWord_TestObject,KeyWord_Operation,KeyWord_Parameters;
//.............................................................................
// 目的：通過ADO查詢Excel數據
// 輸入參數：
// ExcelFilePath ：Excel文件的路徑
// QueryString：查詢語句
// 返回結果：
// 返回所有關鍵字數據，賦值給KeyWord_TestObject,KeyWord_Operation,KeyWord_Parameters這3個全局的變量數組
// 注意事項：
// 作者：陳能技
// 日期：2008-6-3
//.............................................................................
Function ReadKeyWordFromExcel(ExcelFilePath,QueryString);
Var ConStr,Connection,RS,ClassObjArray,LineIndex,ClassObject:OleVariatn;
begin
// 定義連接串
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%S;Extended Properties=Excel 8.0';
ConStr := Utilities.Format(ConStr,[ExcelFilePath]);
Connection := Sys.OleObject('ADODB.Connection');
// 打開連接
Connection.Open(ConStr);
// 執行查詢操作
RS := Connection.Execute(QueryString);
// 創建變量數組
KeyWord_TestObject := CreateVariantArray(0,0);
KeyWord_Operation := CreateVariantArray(0,0);
KeyWord_Parameters := CreateVariantArray(0,0);
LineIndex := 0;
// 循環讀入所有數據
While Not RS.EOF do
begin
Inc(LineIndex);
// 動態修改數組大小
VarArrayRedim(KeyWord_TestObject,LineIndex-1);
VarArrayRedim(KeyWord_Operation,LineIndex-1);
VarArrayRedim(KeyWord_Parameters,LineIndex-1);
// 賦值
KeyWord_TestObject[LineIndex-1] := RS['TestObject'].Value;
KeyWord_Operation[LineIndex-1] := RS['Operation'].Value;
KeyWord_Parameters[LineIndex-1] := RS['Parameters'].Value;
// 下一條數據
RS.MoveNext;
end;
RS.Close;
// 關閉連接
Connection.Close;
end;
Procedure Test_ReadKeyWordFromExcel;
Var I : OleVariant;
begin
ReadKeyWordFromExcel('D:\Code\MyTestSuite\Data\KeyWord.xls','Select * from [KeyWord$]');
For I := 0 to VarArrayHighBound(KeyWord_TestObject,1) do
begin
Log.Message(VarToStr(KeyWord_TestObject[I])+ ' | '
+ VarToStr(KeyWord_Operation[I])+' | '
文章來源于領測軟件測試網 http://www.kjueaiud.com/
