Avaya CMS报告至excel vba

我有一份从Avaya CMS中提取数据的excel报告，但是他们将Avaya CMS应用程序从我的工作站移动到了RD Web访问。现在VBA不再工作，因为我的工作站上安装的旧CMS现在处于RD web访问中。是否可以通过RD web access访问Avaya CMS，以通过VBA将报告提取到excel

提前谢谢

Sub GetIntervalData()

Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object

Dim Info As Object, Log As Object, b As Object

Set cvsApp = CreateObject("ACSUP.cvsApplication")
'Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsserver")
Set Rep = CreateObject("ACSREP.cvsReport")

'Clear Data
Sheets("Domestic Interval Data").Select
Range("A1:AR300").ClearContents

Sheets("Domestic").Activate

serverAddress = Range("B1").Value
UserName = Range("B2").Value
Password1 = Range("C2").Value

If cvsApp.CreateServer(UserName, "", "", serverAddress, False, "ENU", cvsSrv, cvsConn) Then

If cvsConn.Login(UserName, Password1, serverAddress, "ENU") Then

On Error Resume Next

   cvsSrv.Reports.ACD = 1
   Set Info = cvsSrv.Reports.Reports("Historical\Designer\APS Report (MultiSkill)")

   If Info Is Nothing Then
      If cvsSrv.Interactive Then
          MsgBox "The report Historical\Designer\APS Report (MultiSkill) was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
      Else
          Set Log = CreateObject("ACSERR.cvsLog")
          Log.AutoLogWrite "The report Historical\Designer\APS Report (MultiSkill) was not found on ACD 1."
          Set Log = Nothing
      End If
   Else

       b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then

          Rep.Window.Top = 75
          Rep.Window.Left = 690
          Rep.Window.Width = 19140
          Rep.Window.Height = 11400

                  Rep.TimeZone = "default"

         Rep.SetProperty "Split/Skills","1555;1551;1552;1553;1554;1570;1998;1999"

         Rep.SetProperty "Dates", "2/14/2018"

          Rep.SetProperty "Times", "00:00-23:30"

          b = Rep.ExportData("", 9, 0, False, False, True)

          Rep.Quit

              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
       End If

   End If
   Set Info = Nothing

End If

cvsApp.Servers.Remove cvsSrv.ServerKey
cvsConn.Logout
cvsConn.Disconnect
cvsSrv.Connected = False

Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing

Sheets("Domestic Interval Data").Select
Range("A1").Select
ActiveSheet.Paste

End If

Sheets("Domestic").Activate

End Sub

---

**这段代码创建了一个avaya cms会话并运行一个报告，将其提取并直接粘贴到excel

自从我使用avaya cms已经七年了，但我使用cms主管设计报告。你有这个权限吗？如果是这样的话，你应该能够写一个简单的报告来提取你需要的数据。我会看看是否能找到我以前的指南。

是否有后端可供访问和查询？顺便说一句，你的问题无法回答。我可以在RD web access上访问Avaya CMS并运行报告，但现在我必须手动获取数据，然后将其放在我的excel报告中，在CMS被移动到RD web访问之前，我可以通过excel vba自动提取CMS报告，现在它不再工作了。您想知道如何设置RD web访问的文件路径吗？如果您想设置文件路径=\\remotehost\path\to\somefolder\somefile.txt将有助于准确解释“RD web访问”的含义。问题是CMS安装在远程桌面web访问上，我需要一个代码来访问远程web访问上的CMS应用程序，以便我可以提取我看到的数据。我能想到的唯一一件事就是看看你是否与运行数据库服务器的人联系。也许他们可以给你访问权限，你可以使用SQL来提取数据。