Hi again!
Well, i got my code to work
Code:
Dim cvsApp As New ACSUP.cvsApplication
Dim cvsConn As New ACSCN.cvsConnection
Dim cvsSrv As New ACSUPSRV.cvsServer
Dim Rep As New ACSREP.cvsReport
Dim Info As Object, Log As Object, b As Object
Dim logged As Boolean
Public Sub SkillAgentes()
Dim StartTime As Double, EndTime As Double, X
StartTime = Timer
Application.ScreenUpdating = False
Set cvsSrv = cvsApp.Servers(1)
Dim Lastrow As Long
Dim LastCol As Long
Dim wsMain As Worksheet
Set wsMain = Sheets("InicialViesgo")
Dim c As Integer
Dim i As Integer
Dim S As Integer
Dim Skill As String
Dim Prtr As Integer
Dim SetArr() As Variant
Set AgMngObj = cvsSrv.AgentMgmt
S = 1
Lastrow = wsMain.Range("D" & wsMain.Rows.Count).End(xlUp).Row
For i = 2 To Lastrow
LastCol = wsMain.Cells(i, 4).End(xlToRight).Column
Dim Agentes As String: Agentes = wsMain.Cells(i, 4).Value2
Dim Cantidad As Integer: Cantidad = wsMain.Cells(i, 2).Value2
Dim ACD As Integer: ACD = wsMain.Cells(i, 1).Value2
ReDim SetArr(Cantidad, 4)
For c = 5 To LastCol Step 2
On Error Resume Next
Skill = wsMain.Cells(i, c).Value
Prtr = wsMain.Cells(i, c + 1).Value
SetArr(S, 1) = Skill
SetArr(S, 2) = Prtr
SetArr(S, 3) = 0
SetArr(S, 4) = 0
S = S + 1
Next c
AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill_R16_1 ACD, Agentes, Prtr, 0, 0, 0, Cantidad, SetArr, ""
S = 1
Next i
EndTime = Timer
Dim Tiempo As String: Tiempo = Format$(EndTime - StartTime)
MsgBox "Skills de " & Lastrow - 1 & " agentes cambiadas en " & Format(Tiempo, "0.00") & " segundos."
End Sub
Also sorted out my problems with using the new server, but here comes a new one... My job on my company it's monitoring calls, agents and queues... so I need to have avaya working for me, but if I try to start another server it won't because avaya won't let me login 2 times on the same computer, you can login 2 times one in each computer without any trouble, but the problem comes when you try to do that on the same computer. Me and all my mates have 2 computers and 3 screens but we need both the monitoring and the reporting on the same computer. Is there any way to get 2 servers with the same user password on the same computer?
As always, thanks in advance, you've been very helpfull here!
Topic Author
