Excel调用被被被调用方错误拒绝

我编写了一个vbs，它基本上是在后台打开Excel，在其上运行宏，然后通过将单元格的值附加到其名称来保存它。然而，这只是偶尔发生的，我在粗体的行上得到一个错误

行：23
字符：3
错误：被呼叫方拒绝了呼叫。
代码：80010001
来源：（空）

选项显式
卓越宏示例
子示例（）
暗盒
模糊对象
Dim OBJJ工作簿
暗表
暗SI
Dim scriptdir
朦胧
Set of so=CreateObject（“Scripting.FileSystemObject”）
scriptdir=oFSO.GetParentFolderName（WScript.ScriptFullName）
设置objExcel=CreateObject（“Excel.Application”）
设置objWorkbook=objExcel.Workbooks.Open（scriptdir&“\SCORECARD.xlsm”）
运行“刷新连接”
WScript.Sleep 90000
设置objSheet=obj工作簿。工作表（“封面”）
SI=对象表。单元格（4，2）。值
objExcel.ActiveWorkbook.SaveAs scriptdir&“\Scorecards\”和“SCORECARD”&SI&“&Year（Now（））&Month（Now（））&Day（Now（））&Hour（Now（））&Minute（Now（））&xlsm”，52
objExcel.ActiveWorkbook.Close
退出
MsgBox（“成功生成分析记分卡”）
结束子项

请显示准确的错误。@AnsgarWiechers从错误对话框中添加了详细信息。。

Option Explicit

ExcelMacroExample

Sub ExcelMacroExample() 

  Dim objExcel  
  Dim objApp  
  Dim objWorkbook
  Dim objSheet
  Dim SI
  Dim scriptdir
  Dim oFSO
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  scriptdir = oFSO.GetParentFolderName(WScript.ScriptFullName)

  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open(scriptdir & "\SCORECARD.xlsm")

  objExcel.Run "RefreshConns"
  WScript.Sleep 90000 

  Set objSheet = objWorkbook.Worksheets("Cover")

  SI = objSheet.Cells(4, 2).Value

  objExcel.ActiveWorkbook.SaveAs scriptdir & "\Scorecards\" & "SCORECARD_" & SI & "_" & Year(Now()) & Month(Now()) & Day(Now()) & "_" & Hour(Now()) & Minute(Now()) &".xlsm", 52

  objExcel.ActiveWorkbook.Close
  objExcel.Quit   

  MsgBox("Successfully generated profiling scorecard.")

End Sub