使用单元格语法时被呼叫者拒绝了呼叫

Question

我一直在寻找可以帮助我解决此错误的线程“呼叫被被呼叫者拒绝”，但到目前为止，我仍然没有发现任何可以帮助我的错误。我是VBScript的新手，我一直在学习创建一个脚本，该脚本可以通过ClearSCADA中的按钮将数据从数据库自动传输到Excel。我的项目是为ClearSCADA HMI中的按钮创建脚本代码，当我按该按钮时，它可以将scada服务器中的任何数据（例如警报列表或事件列表）自动导出到Excel。

我不断收到此错误“呼叫被被叫方拒绝”，并且总是在我的代码的这一部分（如下所示）中导致此错误。

xlSheet.Cells(1, 1).Value = "Severity"
xlSheet.Cells(1, 2).Value = "Message"
xlSheet.Cells(1, 3).Value = "Time"
xlSheet.Cells(1, 4).Value = "Source"
xlSheet.Cells(1, 5).Value = "User"

这也是错误的图片：

更新：成功了！我决定将延迟时间设置在xlApp.ActiveWorkbook.SaveAs "C:\HData.xlsx"和xlSheet.Cells(1, 1).Value = "Severity"之间。谢谢您的帮助！