Excel调用被callee错误拒绝

我写了一个基本上在后台打开Excel的vbs，运行一个macros，然后通过将单元格的值附加到它的名称来保存它。 但是，这只是有时会发生，我得到粗线上的错误…

线路：23
Char：3
错误：呼叫被被叫方拒绝。
代码：80010001
来源：（null）

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