QTP对EXCEL操作函数

' *********************************************************************************************
'''''''''参数: ReportExcelFile　报告输出的路径,每次QTP运行后的测试结果路径
''''''调用方法：
'' ReportExcelFileSavePath
' *********************************************************************************************
Public ReportExcelFileSavePath
ReportExcelFileSavePath = Environment ("TestDir")& "\" & "测试结果-" & Date & "-"& Hour(Now) & Minute(Now)& Second(Now) & ".xlsx"
' *********************************************************************************************

' ******************************************************************************检查点结果输出***************************************************************************************************
'''以下这个段落是对检查点进行判断，正确输出Pass，错误输出红色的Fail，
'''调用方法：
''CheckPointResultOutputToExcel 检查点名称,CheckPointResult
''注意：1. 在前面的CheckPoint前面插入：CheckPointResult=
''2.检查点的最后Check CheckPoint("打开首页") 中改为：Check (CheckPoint("打开首页"))
' *************************************************************************' *************************************************************************
Function CheckPointResultOutputToExcel (CheckPointName,CheckPointResult)
'On Error Resume Next
Set ExcelSheet1 = ExcelApp.Worksheets.Item("测试结果")
Row= ExcelSheet1.Cells(10,5) ''使用Excel文档数据来记录行数
Column=2
RunTestCaseAmount=ExcelSheet1.Cells(7,3)
RunTestCaseAmount=RunTestCaseAmount+1
ExcelSheet1.Cells(7,3) = RunTestCaseAmount
If CheckPointResult = "True" Then
ExcelSheet1.Cells(Row, Column) = RunTestCaseAmount
''''设置用例编号居中
ExcelSheet1.Range("B"&Row&":B"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
column=column+1
ExcelSheet1.Cells( Row, Column) = CheckPointName
column=column+1
ExcelSheet1.Cells( Row, Column) = "Pass"
''''设置测试结果居中
ExcelSheet1.Range("D"&Row&":D"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
''设置Pass单元格颜色为绿色
ExcelSheet1.Cells(Row, Column).Font.Color = vbGreen
PassAmountOfTestCase = ExcelSheet1.Cells( 8, 3)
ExcelSheet1.Cells( 8, 3) = PassAmountOfTestCase+1
Elseif CheckPointResult = "False" then
ExcelSheet1.Cells(Row, Column) = RunTestCaseAmount
''''设置用例编号居中
ExcelSheet1.Range("B"&Row&":B"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
column=column+1
ExcelSheet1.Cells( Row, Column) = CheckPointName
column=column+1
ExcelSheet1.Cells( Row, Column) = "Fail"
''''设置测试结果居中
ExcelSheet1.Range("D"&Row&":D"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
''设置Fail单元格颜色为红色
ExcelSheet1.Cells(Row, Column).Font.Color = vbRed
FailAmountOfTestCase = ExcelSheet1.Cells( 9, 3)
ExcelSheet1.Cells( 9, 3) = FailAmountOfTestCase+1
Else
ExcelSheet1.Cells(Row, Column) = RunTestCaseAmount
''''设置用例编号居中
ExcelSheet1.Range("B"&Row&":B"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
column=column+1
ExcelSheet1.Cells( Row, Column) = CheckPointName
column=column+1
ExcelSheet1.Cells( Row, Column) = CheckPointResult
''''设置测试结果居中
ExcelSheet1.Range("D"&Row&":D"&Row).HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐
'' ''设置忽略单元格颜色为绿色
'' ExcelSheet1.Cells(Row, Column).Font.Color = vbGreen
NoActionAmountOfTestCase = ExcelSheet1.Cells( 10, 3)
ExcelSheet1.Cells( 10, 3) = NoActionAmountOfTestCase+1
End If

'设置测试结果的边界
ExcelSheet1.Range("B"&Row&":F"&Row).Borders(1).LineStyle = 1
ExcelSheet1.Range("B"&Row&":F"&Row).Borders(2).LineStyle = 1
ExcelSheet1.Range("B"&Row&":F"&Row).Borders(3).LineStyle = 1
ExcelSheet1.Range("B"&Row&":F"&Row).Borders(4).LineStyle = 1

ExcelApp.ActiveWorkbook.Save
CheckPointResult="False" ''防止没有进行CheckPointResult值的获取
'''让行数增加1，以备下一条测试用例获取当前行使用
Row=Row+1
ExcelSheet1.Cells(10,5) = Row
'''填入结束时间用来计算脚本执行时间，插入后会自动进行计算执行时间
ExcelSheet1.Cells(4,3) = Time
End Function
'''''****************************************************************************************************************************************************************
'''''****************************************建立一个测试结果Excel并打印出格式**********************************************************************
'''本函数用于为测试结果建立一个Excel并将该Excel设置相关格式
'''调用方法：（在创建QTP脚本时可以不需要直接调用本函数，可以调用 StartQTP（）函数）
''CreatAExcelAndPrintTheForm()
' *************************************************************************' ***************************************************************************************
Function CreatAExcelAndPrintTheForm()
On Error Resume Next

''''创建一个Excel文件
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
ExcelApp.Workbooks.Add
''''保存测试结果文件
ExcelApp.ActiveWorkbook.SaveAs ReportExcelFileSavePath
''''选定一个Excel表
Set ExcelSheet1 = ExcelApp.Sheets.Item(1)
ExcelApp.Sheets.Item(1).Select
''''更改当前sheet的名字
ExcelSheet1.Name = "测试结果"

''''设置列宽
ExcelSheet1.Columns("A:A").ColumnWidth = 4
ExcelSheet1.Columns("B:B").ColumnWidth = 11
ExcelSheet1.Columns("C:C").ColumnWidth = 30
ExcelSheet1.Columns("D:D").ColumnWidth = 14
ExcelSheet1.Columns("E:E").ColumnWidth = 30
ExcelSheet1.Columns("F:F").ColumnWidth = 40

'''设置单元格为自动换行
ExcelApp.Range("A:G").WrapText = TRUE

'设置显示区域的字体类型和大小
ExcelSheet1.Range("A:F").Font.Name = "Arial"
ExcelSheet1.Range("A:F").Font.Size = 10

'为测试标题设置格式
ExcelSheet1.Range("B1:E1").Interior.ColorIndex = 53 ''单元格底色
ExcelSheet1.Range("B1:E1").Font.ColorIndex = 19
ExcelSheet1.Range("B1:E1").Font.Bold = True
ExcelSheet1.Range("B1:E1").Merge ''''合并单元格

'设置测试参数cell的边界
ExcelSheet1.Range("B2:B10").HorizontalAlignment = 4 ''4’右边对齐 3 '居中 2 '左边对齐
ExcelSheet1.Range("C2:C10").HorizontalAlignment = 2 ''4’右边对齐 3 '居中 2 '左边对齐
ExcelSheet1.Range("D2:D10").HorizontalAlignment = 4 ''4’右边对齐 3 '居中 2 '左边对齐
ExcelSheet1.Range("E2:E10").HorizontalAlignment = 2 ''4’右边对齐 3 '居中 2 '左边对齐
ExcelSheet1.Range("B2:E10").Borders(1).LineStyle = 1
ExcelSheet1.Range("B2:E10").Borders(2).LineStyle = 1
ExcelSheet1.Range("B2:E10").Borders(3).LineStyle = 1
ExcelSheet1.Range("B2:E10").Borders(4).LineStyle = 1

'设置测试参数Cell的样式
ExcelSheet1.Range("B2:E10").Interior.ColorIndex = 40 ''单元格底色
ExcelSheet1.Range("B2:E10").Font.ColorIndex = 7 '‘字体颜色
ExcelSheet1.Range("B2:B10").Font.ColorIndex = 12 '‘字体颜色
ExcelSheet1.Range("D2:D10").Font.ColorIndex = 12 '‘字体颜色
ExcelSheet1.Range("B2:E10").Font.Bold = True ''加粗

'为Result Summery设置格式
ExcelSheet1.Range("B11:F11").Interior.ColorIndex = 53
ExcelSheet1.Range("B11:F11").Font.ColorIndex = 19
ExcelSheet1.Range("B11:F11").Font.Bold = True
ExcelSheet1.Range("B11:G11").HorizontalAlignment = 3 ''4’右边对齐 3 '居中 2 '左边对齐

'设置Result Summery的边界
ExcelSheet1.Range("B11:F11").Borders(1).LineStyle = 1
ExcelSheet1.Range("B11:F11").Borders(2).LineStyle = 1
ExcelSheet1.Range("B11:F11").Borders(3).LineStyle = 1
ExcelSheet1.Range("B11:F11").Borders(4).LineStyle = 1

'''对单元格进行冻结
ExcelSheet1.Range("B12").Select
ExcelApp.ActiveWindow.FreezePanes = True

''''给单元格赋值
ExcelSheet1.Range("B1").Value = "可得网自动化测试结果"
ExcelSheet1.Cells(2,2) = "测试日期："
ExcelSheet1.Cells(2,3) = Date
ExcelSheet1.Cells(3,2) = "开始时间："
ExcelSheet1.Cells(3,3) = Time
ExcelSheet1.Cells(4,2) = "结束时间："
ExcelSheet1.Cells(5,2) = "执行时长："
ExcelSheet1.Range("C5").NumberFormat = "[h]:mm:ss;@"
ExcelSheet1.Cells(6,2) = "测试机器："
ExcelSheet1.Range("C6").Value =GetIP()
ExcelSheet1.Cells(7,2) = "运行用例数："
ExcelSheet1.Cells(7,3) = 0
ExcelSheet1.Cells(8,2) = "通过用例数："
ExcelSheet1.Cells(8,3) = 0
ExcelSheet1.Cells(9,2) = "失败用例数："
ExcelSheet1.Cells(9,3) = 0
ExcelSheet1.Cells(10,2) = "忽略用例数："
ExcelSheet1.Cells(10,3) = 0
ExcelSheet1.Cells(2,4) = "测试环境："
ExcelSheet1.Cells(3,4) = "SQL 地址："
ExcelSheet1.Cells(4,4) = "SQL用户名："
ExcelSheet1.Cells(5,4) = "SQL 密码："
ExcelSheet1.Cells(6,4) = "数据库名："
ExcelSheet1.Cells(10,4) = "当前行："
ExcelSheet1.Cells(10,5) = 12
ExcelSheet1.Cells(2,5) = "Http://192.168.1.81:8085"
ExcelSheet1.Cells(3,5) = "192.168.1.81"
ExcelSheet1.Cells(4,5) = "test"
ExcelSheet1.Cells(5,5) = "t#@!$%"
ExcelSheet1.Cells(6,5) = "test.keede"
ExcelSheet1.Cells(11,2) = "用例编号"
ExcelSheet1.Cells(11,3) ="测试用例标题"
ExcelSheet1.Cells(11,4) ="测试结果"
ExcelSheet1.Cells(11,5) ="测试数据"
ExcelSheet1.Cells(11,6) ="备注"

'''填入结束时间
ExcelSheet1.Cells(4,3) = Time
'''计算脚本运行时间
ExcelSheet1.Range("C5").Value = "=R[-1]C-R[-2]C"

msgbox("请确认测试结果文档中的“测试环境”，“SQL地址”，“SQL用户名”，“SQL密码”，“数据库名” 5个参数是否正确，确认无误后点击确定按钮开始运行测试脚本！如果错误，请直接在EXCEL中更改！")
End Function
'''''*******************************************************************************************************************************************************************************
''''******************************************************************设置测试结果测试数据函数*****************************************************
'''本函数用于对测试用例进行添加测试用例所用的测试数据，一个测试用例可以添加多个测试数据，即可以多次使用本函数
'''调用方法：
''SetTestResultComments 备注标题，备注内容
' *************************************************************************' *************************************************************************
Function SetTestData(DataTitle,DataValue)
On Error Resume Next
Set ExcelSheet1 = ExcelApp.Worksheets.Item("测试结果")
Row= ExcelSheet1.Cells(10,5)
TestData = ExcelSheet1.Cells(Row,5)
''''防止一个测试用例中多次使用测试数据函数，先取出测试数据中的值，将需要添加的新的值添加在后面
If TestData = "" then
TestData =DataTitle&": "&DataValue
else
''没找到如何对Excel单元格进行换行，现在使用空格来生成换行
TheValueOfBlankSpace = " "
TestData = TestData&TheValueOfBlankSpace&DataTitle&":"&DataValue
End If
ExcelSheet1.Cells(Row,5) = TestData
End Function
'''''*****************************************************************************
'''''******************************************************************设置测试结果备注函数*****************************************************
'''本函数用于对测试用例进行添加备注使用，一个测试用例可以添加多个备注，即可以多次使用本函数
'''调用方法：
''SetTestResultComments 备注标题，备注内容
' *************************************************************************' *************************************************************************
Function SetTestResultComments(CommentsTitle,CommentsValue)
On Error Resume Next
Set ExcelSheet1 = ExcelApp.Worksheets.Item("测试结果")
Row= ExcelSheet1.Cells(10,5)
Comments = ExcelSheet1.Cells(Row,6)
''''防止一个测试用例中多次使用备注函数，先取出备注的值，将需要添加的新的值添加在后面
If Comments = "" then
Comments=CommentsTitle&": "&CommentsValue
else
''没找到如何对Excel单元格进行换行，现在使用空格来生成换行
TheValueOfBlankSpace = " "
Comments=Comments&TheValueOfBlankSpace&CommentsTitle&":"&CommentsValue
End If
ExcelSheet1.Cells(Row,6) = Comments
End Function
'''''*****************************************************************************
'''''**********************************开始函数*******************************************
Function StartQTP()
CreatAExcelAndPrintTheForm()
End Function

'''''****************************************************************************
'''''***********************************结束函数******************************************
Function EndQTP()
On Error Resume Next
Set ExcelSheet1 = ExcelApp.Worksheets.Item("测试结果")
'''将当前行和行数置空，该值只用于脚本运行过程
' ExcelSheet1.Range("D10").Value = ""
' ExcelSheet1.Range("E10").Value = ""

'''填入结束时间用来计算脚本执行时间，插入后会自动进行计算执行时间
ExcelSheet1.Cells(4,3) = Time

'保存已经存在的Excel文档
ExcelApp.ActiveWorkbook.Save

''''释放参数
' ExcelApp.Quit
Set ExcelSheet1 = Nothing
Set ExcelApp = Nothing

End Function
'''''*****************************************************************************
'''''******************************************************************打开已经存在的Excel*****************************************************************
Function OpenExcel(ExcelPath)
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
Set objworkbook = ExcelApp.Workbooks.Open (ExcelPath)
' Set ExcelSheet1 = ExcelApp.Worksheets.Item("测试结果")
End Function
'''''*****************************************************************************'''''*****************************************************************************