0

我有以下脚本不断收到

编译错误第 16 行 - 预期的子

我没有看到是什么原因造成的。

该脚本由acscript为 Avaya 电话系统运行。很可能## cvs_cmd_begin和## cvs_cmd_end被引擎替换为其他东西。

'SERVERNAME=123.45.67.89
Public Sub Main()
'## cvs_cmd_begin
' =========================================================
'  ERROR ERROR ERROR
'  If you're having trouble running a script make sure it's Encoding = UTF-8 (use Notepad++)
' =========================================================
'   On Error Resume Next

    SaveFolder = "K:\Telephony\ACD Automation\AutoReport.AgentInterval\Daily 20200124\"
    SaveFile = "Agent.Interval_20200124_12345.txt"

   cvsSrv.Reports.ACD = 1
   Set Info = cvsSrv.Reports.Reports("Historical\Designer\A.Agent Interval")

    If Info Is Nothing Then
        Exit
    Else
        b = cvsSrv.Reports.CreateReport(Info,Rep)

        If b Then
            Rep.TimeZone = "default"    
            Rep.SetProperty "Agent", "12345"
            Rep.SetProperty "Date", "1/24/2020"
            Rep.SetProperty "Times", "07:00-20:45"

            b = Rep.ExportData(SaveFolder & SaveFile, 9, 0, False, True, True)
                Rep.Quit
                Set Rep = Nothing
        End If
    End If

    Set Info = Nothing
'## cvs_cmd_end
End Sub
4

1 回答 1

0

问题是使用没有附带关键字的Exit语句。该语句有五种风格Exit，取决于上下文。

  1. Exit Do
  2. Exit For
  3. Exit Function
  4. Exit Sub
  5. Exit Property

Info在这种情况下，如果未设置对象变量，代码将尝试退出子过程。解决方法是将第 16 行从

Exit

至

Exit Sub
于 2020-01-25T18:16:31.843 回答