Re: Export Users to QC 11.52

Hi ,

Here is the sample code.

Sub AddUserstoproject()

Dim QcConnection As New SAapi
Dim QcServer As String
Dim QcUser As String
Dim QcPass As String
Dim uReply As String

Set QcConnection = New SAapi

Set QcServer = ""

Set QcUser = ""

Set QcPass = ""

QcConnection.Login QcServer, QcUser, QcPass

'MsgBox ("Connected to SA")

Sheets("Projects").Select
    Range("A1").Select
    Selection.End(xlDown).Select
i = ActiveCell.Row

For j = 2 To i

Sheets("Projects").Select
uReply = QcConnection.AddSiteUser(Cells(j, 1), Cells(j, 2), Cells(j, 3))

Next

Set QcConnection = Nothing

QcConnection.Disconnect

End Sub