將HP QC缺陷數據導出到Excel

Question

在工作中，一位同事將缺陷數據從hp qc複製並粘貼到excel中，並且需要她的年齡......這讓我很生氣！

有無論如何從hp qc導出數據爲excel？它是隻需要傾倒的缺陷及其相關的類似編號，日期，摘要，分配等領域的名單....

必須有導出到Excel的方式...

Answer 1

是的，有絕對是一種出口這些缺陷的方法。

1. 篩選出您需要的所有缺陷。或者你可以突出你需要的。

2. 在菜單欄（據我記得它是「缺陷」菜單項，但我可能是錯的） - >有導出選項。

Answer 2

您可以從QC本身導出爲ex​​cel。

缺陷=>導出=>全部/選定。

Answer 3

您可以過濾並選擇缺陷點擊Defects --> Export -->或者ALL或Selected並保存文件。

我還有一個問題在這裏like ..有沒有什麼辦法來保存文件，而不是XLS格式保存爲CSV或XML格式。有人可以指導我..Thanks

Answer 4

1.登錄到HP QC

2.進入defects（左菜單）

3.Filter你的缺陷

4.Go到缺陷頂行中

5.Click和菜單選擇Export按鈕

Answer 5

我不知道這是否會有所幫助。要下載過濾的缺陷，可以進入缺陷 - >分析（在頂部菜單上） - >項目報告 - >選擇報告 - >然後選擇您需要的格式。

對於Excel提取，Defects->缺陷（在頂部菜單上） - >導出

Answer 6

我寫將連接到ALM 12.53和出口缺陷或任何其它報告到Excel的碼。您需要在Excel 2013中有工具=>參考..OTA COM類型庫檢查。我遇到了HTML代碼問題，因此我在下面添加了幾行以從Excel字段中刪除HTML標記。

Sub Main() 
Const QCADDRESS = "http://xxx:xxx/qcbin" 
Const DOMAIN = "xxxx" 
Const PROJECT = "xxxx" 
Const QCUSR = "xxxx" 
Const QCPWD = "xxxx" 

Dim QCConnection, com, recset 
Dim XLS, Wkb, Wks, i 

Set QCConnection = CreateObject("TDApiOle80.TDConnection") 

QCConnection.InitConnectionEx QCADDRESS 
QCConnection.Login QCUSR, QCPWD 
QCConnection.Connect DOMAIN, PROJECT 
QCConnection.IgnoreHtmlFormat = True 
Set com = QCConnection.Command 


com.CommandText = "SELECT BUG.BG_BUG_ID /*Defect.Defect ID*/ as  defectid , " _ 
       & "BUG.BG_STATUS /*Defect.State*/ as state ," _ 
       & "BUG.BG_USER_TEMPLATE_15 /*Defect.Root Cause*/ RootCause, " _ 
       & "BUG.BG_USER_02 /*Defect.Assigned To*/ as AssignedTo, " _ 
       & "BUG.BG_DETECTION_DATE /*Defect.Detected on Date*/ as detectiondate, " _ 
       & "BUG.BG_USER_01 /*Defect.Application Involved*/ as ApplicationInvolved, " _ 
       & "BUG.BG_SUMMARY /*Defect.Summary*/ as summary , " _ 
       & "BUG.BG_DESCRIPTION /*Defect.Description*/ as description, " _ 
       & "BUG.BG_SEVERITY /*Defect.Severity*/ as severity , " _ 
       & "BUG.BG_DETECTED_BY /*Defect.Submitter*/ as submitter , " _ 
       & "BUG.BG_RESPONSIBLE /*Defect.Assignee*/ as Assignee, " _ 
       & "BUG.BG_USER_04 /*Defect.Workstream*/ as workstream , " _ 
       & "BUG.BG_USER_03 /*Defect.Commited Resolution Date*/ as CommitedResolutionDate, " _ 
       & "BUG.BG_USER_05 /*Defect.Vendor Ticket Number*/ as Vendorticketnumber, " _ 
       & "BUG.BG_DEV_COMMENTS /*Defect.Comments*/ as comments " _ 
       & "FROM  BUG /*Defect*/ " _ 
       & "where BG_Status = 'Cancelled' " _ 
       & "order by BUG.BG_DETECTION_DATE,BUG.BG_USER_TEMPLATE_15" 


Set recset = com.Execute 

Set XLS = CreateObject("Excel.Application") 
XLS.Visible = False 
QCConnection.IgnoreHtmlFormat = True 
Set Wkb = XLS.Workbooks.Add 
Set Wks = Wkb.Worksheets(1) 
'Wks.Name "DataFromBugQuery" 

i = 1 

Wks.Cells(i, 1).Value = "Defect ID" 
Wks.Cells(i, 2).Value = "State" 
Wks.Cells(i, 3).Value = "Root Cause" 
Wks.Cells(i, 4).Value = "Assigned To" 
Wks.Cells(i, 5).Value = "Detection Date" 
Wks.Cells(i, 6).Value = "Application Involved" 
Wks.Cells(i, 7).Value = "Summary" 
Wks.Cells(i, 8).Value = "Description" 
Wks.Cells(i, 9).Value = "Severity" 
Wks.Cells(i, 10).Value = "Submitter" 
Wks.Cells(i, 11).Value = "Assignee" 
Wks.Cells(i, 12).Value = "Workstream" 
Wks.Cells(i, 13).Value = "Commited Resolution Date" 
Wks.Cells(i, 14).Value = "Vendor Ticket Number" 
Wks.Cells(i, 15).Value = "Comments" 

If recset.RecordCount > 0 Then 
i = 2 
recset.First 
Do While Not (recset.EOR) 


Wks.Cells(i, 1).Value = recset.FieldValue(0) 
Wks.Cells(i, 2).Value = recset.FieldValue(1) 
Wks.Cells(i, 3).Value = recset.FieldValue(2) 
Wks.Cells(i, 4).Value = recset.FieldValue(3) 
Wks.Cells(i, 5).Value = recset.FieldValue(4) 
Wks.Cells(i, 6).Value = recset.FieldValue(5) 
Wks.Cells(i, 7).Value = recset.FieldValue(6) 
Wks.Cells(i, 8).Value = recset.FieldValue(7) 
Wks.Cells(i, 9).Value = recset.FieldValue(8) 
Wks.Cells(i, 10).Value = recset.FieldValue(9) 
Wks.Cells(i, 11).Value = recset.FieldValue(10) 
Wks.Cells(i, 12).Value = recset.FieldValue(11) 
Wks.Cells(i, 13).Value = recset.FieldValue(12) 
Wks.Cells(i, 14).Value = recset.FieldValue(13) 
Wks.Cells(i, 15).Value = recset.FieldValue(14) 


Dim r As Range 
Wks.Cells(i, 8).NumberFormat = "@" 'set cells to text numberformat 
Wks.Cells(i, 15).NumberFormat = "@" 
With CreateObject("vbscript.regexp") 
.Pattern = "<[^>]+>|;" 
.Global = True 
For Each r In Wks.Cells(i, 8) 
r.Value = .Replace(r.Value, "") 

Next r 
For Each r In Wks.Cells(i, 15) 
r.Value = .Replace(r.Value, "") 
Next r 
End With 

Text = Wks.Cells(i, 8).Value 
Wks.Cells(i, 8).Value = Replace(Text, "&nbsp", "") 
Text = Wks.Cells(i, 8).Value 
Wks.Cells(i, 8).Value = Replace(Text, "&quot", "'") 

Text = Wks.Cells(i, 15).Value 
Wks.Cells(i, 15).Value = Replace(Text, "&nbsp", "") 
Text = Wks.Cells(i, 15).Value 
Wks.Cells(i, 15).Value = Replace(Text, "&ltv6ucbs&gt", "") 

i = i + 1 
recset.Next 
Loop 

Wkb.SaveAs "C:\Users\xxxx\Downloads\Files\Cancelled_Defects.xls" 
End If 

Wkb.Close 
XLS.Quit 

QCConnection.Disconnect 

Set recset = Nothing 
Set com = Nothing 
Set QCConnection = Nothing 
Set XLS = Nothing 
Set Wkb = Nothing 
Set Wks = Nothing 
End Sub 

Answer 7

所有有效的選項，我會增加一個： 在分析菜單中的Excel的查詢選項。

儀表板>分析視圖>添加按鈕>新的Excel報表

你必須爲報告提供一個名稱，然後確認。

在查詢窗口中，您可以鍵入查詢。如何加入表格？請參閱幫助中的數據庫方案>文檔庫> HP ALM項目數據庫參考

您可以添加後處理來構建excel。

每增加一個查詢，都會在excel中登錄一個新的Tab。

這樣你就可以撰寫相當複雜的excel報告。

請注意：添加後處理時，您將創建一個xlsm文件，並且您需要啓用宏。