自动化对象模型+excel实现脚本管理

Dim App As QuickTest.Application51Testing软件测试网x#H&t8XQ@ m

Dim apptest As QuickTest.Test

Dim qtRepositories As QuickTest.ObjectRepositories51Testing软件测试网 n
X6|,m,lK1F

Dim qtLibraries As QuickTest.TestLibraries

Dim qtResultsOpt As QuickTest.RunResultsOptions51Testing软件测试网1c(R6Hw\nqk

Dim worksheet As Excel.worksheet51Testing软件测试网VC K*@ OC`

 51Testing软件测试网
O.i&S!`G9n1}L;_0pQ

Set App = CreateObject("QuickTest.Application")

App.SetActiveAddins (Array("Web", "ActiveX"))51Testing软件测试网^[`E!E#G2u_

App.Launch

App.Visible = True

App.Options.Run.ImageCaptureForTestResults = "OnError"

‘新建test

app.new

 51Testing软件测试网f?]%K\[.z

Set workshest = ThisWorkbook.Worksheets("sheet1")51Testing软件测试网M|U:H9h;I

For i = 2 To testsheet.UsedRange.Rows.Count

casename = worksheet.Cells(1, 4)51Testing软件测试网`;`wf$J[

If testsheet.Cells(i, 6) = "是" Then

App.Test.Settings.Run.OnError = "NextStep"

App.Test.Settings.Resources.Libraries.Add "d:\" & casename & ".qfl", 151Testing软件测试网\t%f
Z$C b

acitoncontent = casename + Chr(32) + worksheet(i, 5)51Testing软件测试网 Sze&w-qn6OS"N

actiondescr = ""51Testing软件测试网TI{id/C[s

actionname = "action" + i

‘创建新的action,并调用testcase和参数51Testing软件测试网|}
} U"m'd1ytHmz#Z

Set newaction = App.Test.AddNewAction(actionname, actiondesc, actioncontent, False, 1)

t = Time()51Testing软件测试网+]RvdZ+` hY rc

curtime = Hour(t) & Minute(t) & Second(t)

 51Testing软件测试网 c7n0t,sgkA@

apptest.Settings.Run.OnError = "NextStep"

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")

qtResultsOpt.ResultsLocation = "d:\Res1\" & curtime

‘按行运行testcase51Testing软件测试网o]il] EsP

App.Test.RunAction "action" & i, qtresultOpt

‘写入测试结果及测试报告路径

worksheet.Cells(i, 7) = App.Test.LastRunResults.Status

worksheet.Hyperlinks.Add Anchor:=testsheet.Range("H" & i), Address:=qtResultsOpt.ResultsLocation & "\report\result.xml"51Testing软件测试网Q |$B4A7}
Ss

End if51Testing软件测试网`X?oWI$l

Next

 51Testing软件测试网4a'Uq|4I@"ZHK(Ra