QC導出到excel文件所使用的插件

QC導出到excel文件所使用的插件，歡迎大家下載，導出缺陷、用例所必須

從QC里導出測試用例到EXCEL的辦法及導出亂碼的解決辦法

相信有很多同學會要用這個功能。
這個方法無法導出測試用例的層級，也無法導出測試用例的步驟，只能導出視圖上已有字段內容。

1、進入測試計劃，點擊視圖->測試網格
2、填寫篩選條件，選出你要的測試用例
3、如要全部導出，右鍵點擊一條測試用例選導出->全部，輸入文件名，默認.xls文件 保存即可
如要部分導出，用ctrl或shift選中你要導出的用例，右鍵點擊一條選中的tc選導出->選定，輸入文件名，默認.xls文件 保存即可

這時候，查看導出的excel，貌似大部分會是亂碼。

解決方法如下：

讀取QC中的bug列表輸出到Excel報表中

把qc服務器上bug輸出到本地excel表中，利用Quality Center Open Test Architecture API -OTA COM 9.0編寫腳本代碼讀取服務器上bug列表，以下代碼在vb中編寫，調試通過。

注意：The OTAClient.dll (OTA COM 9.0 Type Library) 從服務器上下載后保存在你本機文件夾
\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 "深圳博為峰信息技術有限公司", "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