반응형
블로그 이미지
개발자로서 현장에서 일하면서 새로 접하는 기술들이나 알게된 정보 등을 정리하기 위한 블로그입니다. 운 좋게 미국에서 큰 회사들의 프로젝트에서 컬설턴트로 일하고 있어서 새로운 기술들을 접할 기회가 많이 있습니다. 미국의 IT 프로젝트에서 사용되는 툴들에 대해 많은 분들과 정보를 공유하고 싶습니다.
솔웅

최근에 받은 트랙백

글 보관함

Excel Macro로 HP QC 접속하기

2014. 12. 26. 13:01 | Posted by 솔웅


현재 참여하고 있는 프로젝트에서는 Defect Management 를 위해 HP ALM 을 사용하고 있습니다.


Full name은 HP Application Lifecycle Management 이고 흔히 HP QC (Quality Center) 라고들 하더라구요.


이름 그대로 어플리케이션의 Lifecycle을 관리하는 툴인데 현재 프로젝트에서는 Defect 관리만 하고 있습니다. 이 외에 Rally 를 사용해서 Agile Methodology 를 구현하고 있구요.


Automation Testing 을 위해서는 Jenkins 를 사용하고 있습니다.


오늘 글에서는 HP QC 에 있는 데이터를 Excel Macro를 이용해서 불러오는 방법을 정리하겠습니다.


불러온 데이터를 가공해서 관련 테스터나 개발자 혹은 관리자에게 Report 를 이메일로 보내는 프로그램을 개발해서 현재 사용하고 있는데요.


오늘 글에서는 엑셀 매크로를 이용해서 HP QC에 접근하는 방법만 다루겠습니다.

(원문)





가장 먼저 해야할 일이 HP QC에 ID/PW를 입력해서 접근 권한을 얻는 겁니다.


이 때 ID/PW 이외에 Domain과 Project 정보를 함께 제공해야 합니다.


소스코드를 볼까요?


  1. Sub ConnectToQualityCenter()  
  2.   
  3. Dim qcURL As String  
  4. Dim qcID As String  
  5. Dim qcPWD As String  
  6. Dim qcDomain As String  
  7. Dim qcProject As String  
  8. Dim tdConnection As Object  
  9.   
  10. On Error GoTo err  
  11.    qcURL = <QC URL> 'Example : https://<server url>/qcbin  
  12.    qcID = <your User ID>  
  13.    qcPWD = <Your password>  
  14.    qcDomain = <Domain Name>  
  15.    qcProject = <Project Name>  
  16. 'Display a message in Status bar  
  17.    Application.StatusBar = "Connecting to Quality Center.. Wait..."  
  18. ' Create a Connection object to connect to Quality Center  
  19.    Set tdConnection = CreateObject("TDApiOle80.TDConnection")  
  20. 'Initialise the Quality center connection  
  21.    tdConnection.InitConnectionEx qcURL  
  22. 'Authenticating with username and password  
  23.    tdConnection.Login qcID, qcPWD  
  24. 'connecting to the domain and project  
  25.    tdConnection.Connect qcDomain, qcProject  
  26. 'On successfull login display message in Status bar  
  27.    Application.StatusBar = "........QC Connection is done Successfully"  
  28.    Exit Sub  
  29. err:  
  30. 'Display the error message in Status bar  
  31. Application.StatusBar = err.Description  
  32. End Sub 



우선 URL,ID,PWD,Domain 그리고 Project 정보를 해당 변수에 대입시켰죠.


그리고 Application.StatusBar 프로퍼티는 일이 진행되는 동안 메세지를 표시하도록 합니다.


그 다음 19번째 줄에서 HP QC에 connect 할 객체를 생성합니다.

TDApiOle80.TDConnection 를 사용해서 생성하시면 됩니다.


21번째 줄에서는 URL을 사용해서 connection을 초기화 하구요 23번째 줄에서는 ID와 PW를 제공합니다.


25번째 줄에서 도메인과 프로젝트 정보를 제공해서 로그인에 필요한 모든 정보가 제공되게 됩니다.


여기까지 오면 HP QC에 무사히 접속한 겁니다.


27번째 줄에서는 무사히 접속했다는 메세지를 뿌려 줍니다.


그 다음에 Exit Sub를 해서 HP QC 접속 함수를 완료 합니다.

만약에 에러가 있으면 29번째 줄로 건너 뛰어서 에러 메세지를 뿌려주고 End Sub를 하게 되구요.


전달하는 URL은 항상 https://<server url>/qcbin  형태가 됩니다.

반응형

Comment

이전 1 2 3 4 5 6 7 ··· 23 다음