使用 Excel VBA 更改 Avaya 座席技能答案

【问题标题】：Changing Avaya Agent Skills with Excel VBA使用 Excel VBA 更改 Avaya 座席技能
【发布时间】：2022-01-21 05:29:04
【问题描述】：

在我工作的联络中心，他们给了我一份工资单，其中包含基于代理的信息以及与每个代理对应的技能。我需要创建一个 VBA 代码，以便在 CMS Supervisor 中自动复制对该工资单所做的更改，并且代理将能够接收相应技能下的呼叫。供您参考，我附上了一张我的工资单的图片。Payroll

我找到了几个代码，但它们与我的工资单不匹配。

【问题讨论】：

由于 avaya 很少见，并不是每个人都可以帮助你，我可以给你代码来改变技能，但是如何获得它们，所有这些你都需要自己研究。跨度>

标签： vba avaya

【解决方案1】：

这是我的工作表的样子：

这是改变每个人技能的代码（他们最后只有那些，这不会增加技能）

这是我的代码：

Option Explicit
Dim cvsApp As New ACSUP.cvsApplication
Dim cvsConn As New ACSCN.cvsConnection
Dim cvsSrv As New ACSUPSRV.cvsServer
Dim Rep As New ACSREP.cvsReport
Sub SkillAgentes()


    Application.ScreenUpdating = False
    Set cvsSrv = cvsApp.Servers(1)

    Dim LastRow As Long, LastCol As Long
    Dim ws As Worksheet
    Dim F As Integer, C As Integer, i As Integer, S As Integer, Prtr As Integer, ACD As Integer
    Dim Skill As String, Agentes As String
    Dim SetArr() As Variant
    Dim AgMngObj As Object

    Set ws = ThisWorkbook.Sheets("Cambios Skill")
    Set AgMngObj = cvsSrv.AgentMgmt


    LastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
    ACD = 2
    For i = 2 To LastRow
        S = 1
        LastCol = ws.Cells(i, 2).End(xlToRight).Column
        Agentes = ws.Cells(i, ws.Cells.Find("login").Column)
        ReDim SetArr((LastCol - 2) / 2, 4)
        For C = 3 To LastCol Step 2
            On Error Resume Next
            Skill = ws.Cells(i, C)
            Prtr = ws.Cells(i, C + 1)
            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, 1, 0, 0, 0, S - 1, SetArr, ""
    Next i

    ThisWorkbook.Save

    MsgBox "Agentes puestos en sus skill de origen."


End Sub

注意：为此，您需要检查这些库（带有“FALTA”的库）

注意 2：这适用于交互式应用程序，因此 Avaya 必须打开并且用户登录。

【讨论】：