Экспорт данных о дефектах HP QC в Excel

Question

Экспорт данных о дефектах HP QC в Excel

На работе коллега копирует и вставляет данные о дефектах из hp qc, чтобы преуспеть, и ей требуются годы... это сводит меня с ума!

Есть ли способ экспортировать данные в Excel из hp qc? Требуется только сбросить списки дефектов и связанные с ними поля, такие как идентификатор, дата, сводка, присвоенные и т. Д....

Там должен быть способ экспорта, чтобы преуспеть...

6

testing qa hp-quality-center qc

Источник

user559142 04 июн '12 в 00:41

7 ответов

Другие вопросы по тегам testing qa hp-quality-center qc

user557895 28 ноя '12 в 06:23 2012-11-28 06:23 · Answer 1 · 2012-11-28 06:23

Вы можете экспортировать в Excel из QC.

Дефекты => Экспорт => Все / Выбранные.

3

Источник

user557895 28 ноя '12 в 06:23

user1555553 30 июл '12 в 09:47 2012-07-30 09:47 · Answer 2 · 2012-07-30 09:47

Да, определенно есть способ экспортировать эти дефекты.

Отфильтруйте все дефекты, которые вам нужны. Или вы можете выделить те, которые вам нужны.
В строке меню (насколько я помню это пункт меню "Дефекты", но я могу ошибаться) -> есть опция Экспорт.

2

Источник

user1555553 30 июл '12 в 09:47

user5677679 14 дек '15 в 11:23 2015-12-14 11:23 · Answer 3 · 2015-12-14 11:23

Я не уверен, будет ли это полезно Чтобы загрузить отфильтрованные дефекты, перейдите в "Дефекты" -> "Анализ" (в верхнем меню)-> "Отчет по проекту" -> "Отобранный отчет" -> затем выберите необходимый формат.

Для извлечения в Excel, Дефекты-> Дефекты (в верхнем меню)-> Экспорт

1

Источник

user5677679 14 дек '15 в 11:23

user7442038 19 янв '17 в 16:07 2017-01-19 16:07 · Answer 4 · 2017-01-19 16:07

Я написал код, который будет подключаться к ALM 12.53 и экспортировать дефект или любой другой отчет в Excel. Вам нужно сделать так, чтобы Tool=>Reference..OTA COM Type Library проверяла в Excel 2013. У меня была проблема с HTML-кодом, поэтому я добавил несколько строк ниже, чтобы удалить HTML-тег из полей 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

user4370510 24 май '17 в 08:12 2017-05-24 08:12 · Answer 5 · 2017-05-24 08:12

Все допустимые параметры, и я добавлю еще один: параметр запроса Excel в меню анализа.

Панель инструментов> Представление анализа> Кнопка добавления> Новый отчет Excel

Вам нужно будет указать название отчета и подтвердить его.

В окне Query вы можете ввести запрос. Как присоединиться к столам? Обратитесь к схеме базы данных в справке> библиотека документации> Справочник по базе данных проекта HP ALM

Вы можете добавить постобработку, чтобы структурировать Excel.

Каждый добавленный запрос попадет в новую вкладку в Excel.

Таким образом, вы можете составить довольно сложные отчеты Excel.

Обратите внимание: при добавлении постобработки вы создаете файл xlsm и вам необходимо включить макросы.

user4544941 09 фев '15 в 05:16 2015-02-09 05:16 · Answer 6 · 2015-02-09 05:16

1. Войдите в HP QC

2. Перейти к defects (левое меню)

3. Фильтруйте ваши дефекты

4. Перейти к дефектному меню в верхнем ряду

5.Нажмите и выберите Export кнопка

0

Источник

user4544941 09 фев '15 в 05:16

user3633177 13 май '14 в 15:21 2014-05-13 15:21 · Answer 7 · 2014-05-13 15:21

Вы можете отфильтровать и выбрать дефекты, нажав на Defects --> Export --> или ALL или же Selected и сохраните файл.

У меня есть еще один вопрос, такой как... есть ли способ сохранить файл, отличный от формата XLS, для сохранения в формате CSV или XML. Может ли кто-нибудь направить меня.. Спасибо