I would appreciate if someone can help me with Macro's code. I have got a new requirement which is as follows:
Date 3-Apr-14
Time 11:00 AM
Project Name XYZ
Report Prepared By Reporter's Name
Total Requirement Count 100
High Priority Requirement 40
Medium Priority Requirement 30
Low Priority Requimrent 30
Test Case Count 1000
High priority 500
Medium Priority 400
Low Priority 100
Requirement Name TC Count High Med Low
1.1 20 10 4 6
1.2 40 20 10 10
This goes similar to Bug status as well. I was able to get the code for QC connection but I don't know how to write a code in requirement fashion. Below is the QC Connection code:
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 = "http://....../qcbin"
qcID = "username"
qcPWD = "password"
qcDomain = "HEALTH"
qcProject = "Dummy_Project"
'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
Please guide me :(