Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open("F:\QTP_Demo\Config.xlsx")
Set myExcelSheet = myExcelBook.WorkSheets("Sheet1")
GetExcleSheetRowsCount = myExcelSheet.UsedRange.Rows.Count
For i = 2 To GetExcleSheetRowsCount
Set ppobj = Createobject("Quicktest.Application")
oppobj.Launch
oppobj.Visible = True
oppobj.windowstate = "Maximized"
Dim myScriptsPath
myScriptsPath = myExcelSheet.cells(i,1)
oppobj.open myScriptsPath
Set qtTest = oppobj.test
'定义环境变量,用于后续脚本中加载对应组件的文件路径
qtTest.Environment.Value("LogPath") = myExcelSheet.cells(i,3)
qtTest.Environment.Value("ReportPath") = myExcelSheet.cells(i,4)
qtTest.Environment.Value("CasePath") = myExcelSheet.cells(i,2)
'加载Lib数据
Dim myLib
myLib = split(myExcelSheet.cells(i,5),",")
Set qtLibraries = qtTest.Settings.Resources.Libraries
for j = 0 to ubound(myLib)
If qtLibraries.Find(myLib(j)) = -1 Then
qtLibraries.Add myLib(j),1
end if
Next
'加载对象库
Dim myRep,myActionName,tempPath
tempPath = split(myScriptsPath,"\")
myActionName = tempPath(ubound(tempPath))
myRep = split(myExcelSheet.cells(i,6),",")
Set qtRepositories = qtTest.Actions(myActionName).ObjectRepositories
qtRepositories.RemoveAll
For k = 0 to ubound(myRep)
qtRepositories.Add myRep(k), 1
Next
'开始
测试 qtTest.Run
qtTest.Close
Set qtLibraries = Nothing
Set qtTest = Nothing
oppobj.Quit
Set ppobj = Nothing
Next
ExcelBook.Quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing