|
'获取路径
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
road = WshShell.CurrentDirectory & "\"
'Dim xlsApp,wkBook,wkSheet,RowCount,CaseArr(50)
'Set xlsApp=CreateObject("Excel.Application")
'Set wkBook=xlsApp.Workbooks.Open("F:\baison\WORK\bserp\BSERP_PG\QTP\QTP实现\QTP实现\TestData.xls")
'Set wkSheet=wkBook.Worksheets("TestScenario")
'RowCount=wkSheet.usedRange.Rows.Count
'For i=2 To RowCount
' CaseArr(i-2)=wkSheet.Cells(i,1)
'Next
'wkBook.Close
'xlsApp.Quit
'Set wkSheet=Nothing
'Set wkBook=Nothing
'Set xlsApp=Nothing
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
'For i=0 To UBound(CaseArr)
' If Not IsEmpty(CaseArr(i)) Then
qtApp.Open road&"QTPRUN", False, False
'Set qtLibraries = qtApp.Test.Settings.Resources.Libraries
'qtLibraries.Add "F:\baison\WORK\bserp\BSERP_PG\QTP\QTP实现\QTP实现\QTPRUN\aa.vbs"
qtApp.Test.run
' End If
'Next |
|