QC導(dǎo)出到excel文件所使用的插件,歡迎大家下載,導(dǎo)出缺陷、用例所必須
從QC里導(dǎo)出測(cè)試用例到EXCEL的辦法及導(dǎo)出亂碼的解決辦法
相信有很多同學(xué)會(huì)要用這個(gè)功能。
這個(gè)方法無(wú)法導(dǎo)出測(cè)試用例的層級(jí),也無(wú)法導(dǎo)出測(cè)試用例的步驟,只能導(dǎo)出視圖上已有字段內(nèi)容。
1、進(jìn)入測(cè)試計(jì)劃,點(diǎn)擊視圖->測(cè)試網(wǎng)格
2、填寫(xiě)篩選條件,選出你要的測(cè)試用例
3、如要全部導(dǎo)出,右鍵點(diǎn)擊一條測(cè)試用例選導(dǎo)出->全部,輸入文件名,默認(rèn).xls文件 保存即可
如要部分導(dǎo)出,用ctrl或shift選中你要導(dǎo)出的用例,右鍵點(diǎn)擊一條選中的tc選導(dǎo)出->選定,輸入文件名,默認(rèn).xls文件 保存即可
這時(shí)候,查看導(dǎo)出的excel,貌似大部分會(huì)是亂碼。
解決方法如下:
在上述第三步時(shí),輸入文件名后,保存類型選擇為 .html文件,保存好后再用excel打開(kāi)即可解決亂碼問(wèn)題。讀取QC中的bug列表輸出到Excel報(bào)表中
把qc服務(wù)器上bug輸出到本地excel表中,利用Quality Center Open Test Architecture API -OTA COM 9.0編寫(xiě)腳本代碼讀取服務(wù)器上bug列表,以下代碼在vb中編寫(xiě),調(diào)試通過(guò)。
注意:The OTAClient.dll (OTA COM 9.0 Type Library) 從服務(wù)器上下載后保存在你本機(jī)文件夾
\Program Files\Common Files\Mercury Interactive\Quality Center下。
代碼:
Dim QCConnection As TDConnection
Dim BugFactory As BugFactory
Dim BugList
Dim Bug As Bug
Dim Row As Integer
Dim Excel, Sheet
On Error GoTo makeConnectionErr
If (QCConnection Is Nothing) Then
Set QCConnection = New TDAPIOLELib.TDConnection
End If
If (QCConnection Is Nothing) Then GoTo makeConnectionErr
QCConnection.InitConnectionEx "http://192.168.1.180:8080/qcbin"
QCConnection.Login "pcl", ""
'DEFAULT = Domain, QualityCenter_Demo = Project
QCConnection.Connect "深圳博為峰信息技術(shù)有限公司", "mis"
If QCConnection.Connected = True Then
Debug.Print "Connection Success"
If QCConnection.LoggedIn = True Then
Debug.Print "Logedin"
If QCConnection.ProjectName <> "mis" Then
If QCConnection.ProjectConnected = True Then
Debug.Print "ok"
End If
End If
End If
Else
MsgBox "Connection Failed"
End If
'Check status.
Set BugFactory = QCConnection.BugFactory
Set BugList = BugFactory.NewList("")
Set Excel = CreateObject("Excel.Application")
Excel.WorkBooks.Add
Set Sheet = Excel.ActiveSheet
Row = 1
Sheet.Cells(Row, 1).Value = "BG_BUG_ID"
Sheet.Cells(Row, 2).Value = "Summary"
Sheet.Cells(Row, 3).Value = "DetectedBy"
Sheet.Cells(Row, 4).Value = "Priority"
Sheet.Cells(Row, 5).Value = "Status"
Sheet.Cells(Row, 6).Value = "AssignedTo"
Row = 2
For Each Bug In BugList
Sheet.Cells(Row, 1).Value = Bug.Field("BG_BUG_ID")
Sheet.Cells(Row, 2).Value = Bug.Summary
Sheet.Cells(Row, 3).Value = Bug.DetectedBy
Sheet.Cells(Row, 4).Value = Bug.Priority
Sheet.Cells(Row, 5).Value = Bug.Status
Sheet.Cells(Row, 6).Value = Bug.AssignedTo
Row = Row + 1
Next
Excel.ActiveWorkbook.SaveAs ("c:\QualityCenter_DEFECTS.xls")
Excel.Quit
Set Excel = Nothing
Set BugList = Nothing
QCConnection.ReleaseConnection
Set QCConnection = Nothing
makeConnectionErr:
Debug.Print Err, fName, Err.Descrīption & vbCrLf & errmsg