QTP关键字驱动框架之方法体封装

'刷新浏览器
Public Sub Refresh
Browser("CreationTime:=0").Refresh
Browser("CreationTime:=0").Sync 
End Sub 

Public Function Include(value)
Dim ExcelPath,TCNum,arrTemp
arrTemp = Split(value,",")
ExcelPath = arrTemp(0)
TCNum = arrTemp(1)
'执行用例
Set oExcel = CreateObject("Excel.Application")
Set oWookBook = oExcel.Workbooks.Open(ExcelPath)
Set oTCWookSheet = oExcel.Worksheets.Item(TCSheet).UsedRange 
Set oTSWookSheet = oExcel.Worksheets.Item(TSSheet).UsedRange
TCrow=oTCWookSheet.Rows.count                            '计算使用的单元格行数 
TSrow=oTCWookSheet.Rows.count 
For i = 2 To TCrow
TestCesesID = oExcelUtil.getCellData(oTCWookSheet,i,Col_TestCaseID)
RunMode = oExcelUtil.getCellData(oTCWookSheet,i,Col_Runmode)
If TestCesesID = TCNum And RunMode = "Yes" Then
For j = 2 To TSrow
tsTCID = oExcelUtil.getCellData(oTSWookSheet,j,Col_TestCaseID)
If tsTCID = TestCesesID Then
tsEvent = oExcelUtil.getCellData(oTSWookSheet,j,Col_Event)
tsElement = oExcelUtil.getCellData(oTSWookSheet,j,Col_Elenium)
tsAttribule = oExcelUtil.getCellData(oTSWookSheet,j,Col_Attribute)
tsValue = oExcelUtil.getCellData(oTSWookSheet,j,Col_Value)
Select Case tsEvent
Case "Launch"
oKeyWord.Launch tsValue
Case "Refresh"
oKeyWord.Refresh
Case "Click"
oKeyWord.Click tsElement,tsAttribule
Case "Input"
oKeyWord.Input tsElement,tsAttribule,tsValue
Case "Sendkeys"
oKeyWord.Sendkeys tsValue
Case "Selects"
oKeyWord.Selects tsElement,tsAttribule,tsValue
Case "MouseMove"
oKeyWord.MouseMove tsElement,tsAttribule
Case "sSet"
oKeyWord.sSet tsElement,tsAttribule,tsValue
Case "CloseBrowser" 
oKeyWord.CloseBrowser
End Select
End If
Next 
End If
Next 
'关闭Excel
Set oTCWookSheet = Nothing
Set oTSWookSheet = Nothing
'oWookBook.Save
oWookBook.Close
oExcel.Quit
Set oExcel = Nothing
Set oKeyWord = Nothing
Set oExcelUtil = Nothing
End Function

'点击
Public Function Click(element,oDesc)
Browser("title:=.*").Page("title:=.*").Sync 
arrayProperty element,oDesc
proName = Split(oPropertyName,",")
proValue = Split(oPropertyValue,",")
Set oElement = getItemList(objPage,proName,proValue)
If oElement.count = 1 Then
oElement(0).Click
else if oElement.count = 2 then
oElement(1).Click
End IF
end if
Set oPropertyName = Nothing
End Function 

public Function Sync
Browser("CreationTime:=0").Sync
End Function

'日历时间控件方法
public Function CalendarSet(element,oDesc,value)
arrayProperty element,oDesc
proName = Split(oPropertyName,",")
proValue = Split(oPropertyValue,",")
Set oElement = getItemList(objPage,proName,proValue)
if oElement.count = 1 Then
oElement(0).Object.setAttribute "value",value,"0"
End IF
End Function

'保存数据,提供下游业务引用
public Function SaveData(element,oDesc,sValue)
arrTemp = split(sValue,";")
arrayProperty element,oDesc
proName = Split(oPropertyName,",")
proValue = Split(oPropertyValue,",")
Set oElement = getItemList(objPage,proName,proValue)
if oElement.count = 1 and UBound(arrTemp)=2 Then
select case arrTemp(2)
case "innertext" 
oExcelUtil.WriteExcelData arrTemp(0),arrTemp(1),oElement(0).GetROProperty("innertext")
case "value"
oExcelUtil.WriteExcelData arrTemp(0),arrTemp(1),oElement(0).GetROProperty("value")
End Select
End IF
End Function