현재 참여하고 있는 프로젝트에서는 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 정보를 함께 제공해야 합니다.
소스코드를 볼까요?
- Sub ConnectToQualityCenter()
- Dim qcURL As String
- Dim qcID As String
- Dim qcPWD As String
- Dim qcDomain As String
- Dim qcProject As String
- Dim tdConnection As Object
- On Error GoTo err
- qcURL = <QC URL> 'Example : https://<server url>/qcbin
- qcID = <your User ID>
- qcPWD = <Your password>
- qcDomain = <Domain Name>
- qcProject = <Project Name>
- 'Display a message in Status bar
- Application.StatusBar = "Connecting to Quality Center.. Wait..."
- ' Create a Connection object to connect to Quality Center
- Set tdConnection = CreateObject("TDApiOle80.TDConnection")
- 'Initialise the Quality center connection
- tdConnection.InitConnectionEx qcURL
- 'Authenticating with username and password
- tdConnection.Login qcID, qcPWD
- 'connecting to the domain and project
- tdConnection.Connect qcDomain, qcProject
- 'On successfull login display message in Status bar
- Application.StatusBar = "........QC Connection is done Successfully"
- Exit Sub
- err:
- 'Display the error message in Status bar
- Application.StatusBar = err.Description
- 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 형태가 됩니다.
'etc. > Excel Programming' 카테고리의 다른 글
Count cells that contain specific text (0) | 2015.08.28 |
---|---|
UsedRange와 VLookup 을 이용한 데이터 비교 로직 (0) | 2015.08.06 |
WEEKDAY() 함수 이용한 월요일 구하기 (2) | 2014.12.13 |
엑셀 VLOOKUP 함수 사용하기 (1) | 2014.12.11 |
[Excel] 초를 분으로 , 분을 초로 그리고 분을 시간으로 변환하기 (1) | 2014.03.25 |
[VBA] Tip Range 안에 있는 Row 갯수 구하기 (0) | 2014.03.06 |
[VBA] Tips - 필터링 후 Avarage 구하기 (0) | 2014.03.05 |
[VBA] Tips - 필터링 후 row 갯수 구하기 (0) | 2014.03.05 |
[VBA] Debug.print 출력물을 파일에 저장하기 (0) | 2014.03.04 |
[VBA] 디버깅 툴 알아보기 (0) | 2014.03.03 |