Exportación de datos de defectos de HP QC a Excel

En el trabajo, un colega copia y pega datos de defectos de hp qc para sobresalir y toma su edad ... ¡eso me vuelve loco!Exportación de datos de defectos de HP QC a Excel

¿Hay alguna forma de exportar datos a excel desde hp qc? Sólo se requiere para volcar las listas de los defectos y sus campos asociados como la identificación, la fecha, resumen, asignado a etc ....

Tiene que haber una manera de exportar para sobresalir ...

Fuente

2012-06-04 user559142

¿Ninguna respuesta tiene la característica deseada? –

sí, hay Definitivamente una forma de exportar esos defectos.

Filtra todos los defectos que necesites. O simplemente puede resaltar los que necesita.
En la barra de menú (por lo que recuerdo es un elemento del menú "Defectos", pero podría estar equivocado) -> existe la opción Exportar.

Fuente

2012-07-30 09:47:41 buxter

Puede exportar a excel desde QC.

Defectos => Exportar => Todos/Seleccionados.

Fuente

2012-11-28 06:23:01 rajaishbt

Respuesta más directa. –

Puede filtrar y seleccionar los defectos, haga clic en Defects --> Export -->ALL o Selected y guarde el archivo.

Tengo una pregunta más aquí, como ... hay alguna forma de guardar el archivo que no sea formato XLS para guardarlo en formato CSV o XML. Puede guiar a alguien me ..Thanks

Fuente

2014-05-13 15:21:16 Reddy

1.Inicie sesión en HP QC

2.Go a defects (menú de la izquierda)

3.Filter sus defectos

4.Go a un defecto menú en fila superior

5.Click y seleccione el botón Export

Fuente

2015-02-09 05:16:35 user4544941

no estoy seguro de si esto va a ser útil. Para descargar los defectos filtrados, puede ir a Defectos-> Análisis (en el menú superior) -> Informe del proyecto-> Informe seleccionado-> luego seleccione el formato que necesitaría.

Para la extracción de Excel, Defectos> Defectos (en el menú superior) -> Exportar

Fuente

2015-12-14 11:23:26 Arya

escribí un código que se conectará con ALM 12.53 y el defecto de exportación o cualquier otro informe en Excel. Necesita tener Tool => Reference .OTA COM Type Library check en Excel 2013. Tuve un problema con el código HTML, así que he agregado algunas líneas a continuación para eliminar HTML Tag de los campos de Excel.

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

Fuente

2017-01-19 16:07:28

Todas las opciones válidas, y voy a añadir una más: La opción de consulta de Excel en el menú de análisis.

Controles> vista Análisis> Añadir botón> Nueva Excel Report

Usted tendrá que proporcionar un nombre para el informe, a continuación, confirmar.

En la ventana de Consulta, puede escribir una consulta. ¿Cómo unirse a las mesas?Consulte el esquema de la base de datos en la ayuda> biblioteca de documentación> Referencia de la base de datos del proyecto HP ALM

Puede agregar el postproceso para estructurar el Excel.

Cada consulta añadida, aterrizará en una nueva pestaña en excel.

De esta forma puede redactar informes de Excel bastante complejos.

Sin embargo, tenga en cuenta: Al agregar el postproceso, crea un archivo xlsm y necesita habilitar las macros.

Fuente

2017-05-24 08:12:37

Exportación de datos de defectos de HP QC a Excel

Respuesta

Cuestiones relacionadas