2012-06-04 8 views
6

पर एचपी क्यूसी दोष डेटा निर्यात करना एक सहयोगी प्रतियां और पेस्ट एचपी क्यूसी से एक्सेल करने के लिए डेटा को खराब कर देता है और यह उसकी उम्र लेता है ... यह मुझे पागल बनाता है!एक्सेल

क्या एचपी क्यूसी से एक्सेल करने के लिए डेटा निर्यात करने के लिए वैसे भी है? यह केवल दोष और ईद, तिथि, सारांश, आदि करने के लिए आवंटित की तरह उनके संबद्ध क्षेत्रों की सूची डंप करने के लिए आवश्यक है ....

उत्कृष्टता प्राप्त करने निर्यात करने के लिए एक तरीका होना चाहिए ...

+0

कोई जवाब नहीं वांछित सुविधा है? –

उत्तर

1

हाँ, वहाँ है निश्चित रूप से उन दोषों को निर्यात करने का एक तरीका है।

  1. आपको आवश्यक सभी दोषों को फ़िल्टर करें। या आप केवल उन लोगों को हाइलाइट कर सकते हैं जिन्हें आप चाहते हैं।

  2. मेनू बार में (जहां तक ​​मुझे याद है कि यह "दोष" मेनू आइटम है, लेकिन मैं गलत हो सकता हूं) -> निर्यात विकल्प है।

2

आप क्यूसी से खुद को उत्कृष्टता के लिए निर्यात कर सकते हैं।

दोष => निर्यात => सभी/चयनित।

+0

सबसे सीधे-आगे उत्तर। –

0

आप दोषों को फ़िल्टर और चुन सकते हैं Defects --> Export --> या तो ALL या Selected पर क्लिक करें और फ़ाइल को सहेजें।

मेरे यहां एक और सवाल है .. क्या सीएसवी या एक्सएमएल प्रारूप में सहेजने के लिए एक्सएलएस प्रारूप के अलावा फ़ाइल को सहेजने का कोई तरीका है। कुछ भी मुझे हिमाचल प्रदेश क्यूसी में

हिन्दी 2.Go

0

1.Log ..Thanks मार्गदर्शन defects (बाएं मेनू)

करने के लिए अपने दोषों

4.Go दोष के 3.Filter कर सकते हैं शीर्ष पंक्ति

5.Click और में मेनू Export बटन

1

मुझे यकीन नहीं कर रहा हूँ का चयन अगर यह उपयोगी होगा। फ़िल्टर किए गए दोषों को डाउनलोड करने के लिए, कोई दोष-> विश्लेषण (शीर्ष मेनू पर) -> परियोजना रिपोर्ट-> चयनित रिपोर्ट -> फिर उस प्रारूप का चयन करें जिसकी आपको आवश्यकता होगी।

एक्सेल निकासी के लिए, Defects-> दोष (शीर्ष मेनू पर) -> निर्यात

1

मैं एक कोड है जो एक एक्सेल में एएलएम 12.53 और निर्यात दोष या किसी अन्य रिपोर्ट से कनेक्ट करेगा लिखा। आपको एक्सेल 2013 में टूल => संदर्भ..ओटीए कॉम टाइप लाइब्रेरी चेक की आवश्यकता है। मुझे HTML कोड के साथ समस्या थी इसलिए मैंने एक्सेल फ़ील्ड से 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 
0

सभी मान्य विकल्प, और मैं एक और जोड़ देंगे: विश्लेषण मेनू में एक्सेल क्वेरी विकल्प।

डैशबोर्ड> विश्लेषण दृश्य> जोड़ें बटन> नई एक्सेल रिपोर्ट

आप रिपोर्ट के लिए एक नाम प्रदान करना होगा, तो इस बात की पुष्टि।

क्वेरी विंडो में आप एक क्वेरी टाइप कर सकते हैं। टेबल में कैसे शामिल हों?मदद पर डेटाबेस योजना से परामर्श लें> दस्तावेज़ीकरण लाइब्रेरी> एचपी एएलएम परियोजना डेटाबेस संदर्भ

आप एक्सेल की संरचना के लिए पोस्ट-प्रोसेसिंग जोड़ सकते हैं।

प्रत्येक क्वेरी जोड़ी गई, एक्सेल में एक नए टैब में उतरेगी।

इस तरह आप काफी जटिल एक्सेल रिपोर्ट लिख सकते हैं।

ध्यान दें हालांकि: पोस्ट-प्रोसेसिंग जोड़ने पर, आप एक xlsm फ़ाइल बनाते हैं और आपको मैक्रोज़ सक्षम करने की आवश्यकता होती है।