Avaya CMS自动化错误（通过VBA）

我在下面运行宏时遇到以下错误。我只能从这边复制这个宏。我正在使用下面的宏从Avaya CMS复制excel中的转储文件

代码如下。我在步骤中遇到错误：

设置cvsApp=CreateObject（“ACSUP.cvsApplication”）

您能给我们一个VBA参考资料的屏幕截图吗？（如果缺少已选中的：Libs，则应取消选中它们）您是否也可以在Excel的对象浏览器中查看该对象是否实际可用

如果引用了对象/库，则不必使用CreateObject（）后期绑定。工具->VBA编辑器中的引用。

您能给我们一个VBA引用的屏幕截图吗？（如果缺少已选中的：Libs，则应取消选中它们）您是否也可以在Excel的对象浏览器中查看该对象是否实际可用

---

如果引用了对象/库，则不必使用CreateObject（）后期绑定。工具->VBA编辑器中的引用。

该组件似乎在您的电脑上没有受到抵制，或者注册为32位版本，并且您正在运行64位Excel。我正在客户端系统上使用此代码。通过Citrix（远程系统）进行连接。Avaya CMS可用的地方。我对这种类型的设置没有任何经验。似乎该组件在您的PC上没有受到抵制，或者注册为32位版本，并且您正在运行64位Excel。我在客户端系统上使用此代码。通过Citrix（远程系统）进行连接。Avaya CMS可用的地方。我没有这种类型的设置经验。在参考资料中，我选择了下面的选项1。应用程序的可视化基础。2.Microsoft Excel 15.0库，3。OLE Automation 4.Microsoft office对象库。感谢您的回复。请确认我在对象浏览器中需要签入的名称。我如何确定这是否可能。如果你看这里，OP试图通过编程方式添加引用。您可以以他的目录路径为例来查找实际的.dll和.exe文件。如果您转到工具->引用->浏览，您应该能够选择这些文件并将其添加为引用，以尝试早期绑定。如果后期绑定和早期绑定不起作用，请尝试将程序简化为只创建对象，并添加变量作为带换行符的手表。。如果您在“监视”窗口中展开监视的变量，您可以看到您的语法是否实际挂接到对象的实例上。嗨，Peyter，在浏览引用时，我得到了太多的选项。你能建议我选择哪一个吗？在参考资料中，我选择了下面的选项1。应用程序的可视化基础。2.Microsoft Excel 15.0库，3。OLE Automation 4.Microsoft office对象库。感谢您的回复。请确认我在对象浏览器中需要签入的名称。我如何确定这是否可能。如果你看这里，OP试图通过编程方式添加引用。您可以以他的目录路径为例来查找实际的.dll和.exe文件。如果您转到工具->引用->浏览，您应该能够选择这些文件并将其添加为引用，以尝试早期绑定。如果后期绑定和早期绑定不起作用，请尝试将程序简化为只创建对象，并添加变量作为带换行符的手表。。如果您在“监视”窗口中展开监视的变量，您可以看到您的语法是否实际挂接到对象的实例上。嗨，Peyter，在浏览引用时，我得到了太多的选项。你能建议一下需要选哪一个吗。

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
On Error Resume Next
Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsserver")
Set Rep = CreateObject("ACSREP.cvsReport")
'Clear Data
Sheets("Sheet1").Select
Range("A1:AR300").ClearContents
Sheets("Domestic").Activate
serverAddress = "*****"
UserName = "*****"
Password1 = "*****"
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\SLA for skill(s) Daily Summary")
   If Info Is Nothing Then
      If cvsSrv.Interactive Then
          MsgBox "The report Historical\Designer\SLA for skill(s) Daily Summary", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
      Else
          Set Log = CreateObject("ACSERR.cvsLog")
          Log.AutoLogWrite "The report Historical\Designer\SLA for skill(s) Daily Summary"
          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", "CA10 CRU Parts;CA10 CRU Tech;CA14 ICG;CA10 LCSC;CA10 USEO P_1;CA14 ICG Overflow"
         Rep.SetProperty "Dates", "8/1/2020"
          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("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
End If
Sheets("Sheet1").Activate
End Sub